DockBar (Object bar) Apple style

[cliv]

I need to create a control to place on a form that act like a Mac object bar.
I found this:
http://www.xtremevbtalk.com/showthread.php?p=1010694

and this:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=55352&lngWId=1

can someone modified second submision to be place on a form like CrudeMacBar.zip sample in the first link.



Need to show like this:
http://www.stardock.com/products/objectdock/
...but can be place an  form.

Here is a .Net version:
http://www.codeproject.com/KB/vb/xDock.aspx
Thank you

[LeandroA]

see this link, is an example something similar, but may improve if it is combined with the logic of CrudeMacBar.zip

http://www.leandroascierto.com.ar/categoria/Controles%20de%20Usuario/articulo/ucImage%20y%20ucImageList.php

Saludos.

[cliv]

Yes....very good sample

[raul338]

If you want to dock the form (like RocketDock and others) you can use the APIs used here:

http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/b75dd62c-92ba-4551-a7bf-a039a67b156c/

is vb.net but the apis used are this:

SHAppBarMessage Lib "shell32.dll" Alias "SHAppBarMessage" (ByVal dwMessage As Integer, ByRef pData As APPBARDATA)
GetSystemMetrics Lib "User32.dll" Alias "GetSystemMetrics" (ByVal index As Integer) As Integer
MoveWindow Lib "User32.dll" Alias "MoveWindow" (ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal repaint As Boolean) As Boolean
RegisterWindowMessage Lib "User32.dll" (ByVal msg As String) As Integer


You have to expermient (sorry for my BAD english  )