How do I get this look?

See the look of the menu's? I like it, but how do I make my program look like that? Is is possible in VB?

VB Code:

'change menu back color to white
Private Enum MENUINFO_STYLES
    MNS_NOCHECK = &H80000000
    MNS_MODELESS = &H40000000
    MNS_DRAGDROP = &H20000000
    MNS_AUTODISMISS = &H10000000
    MNS_NOTIFYBYPOS = &H8000000
    MNS_CHECKORBMP = &H4000000
End Enum
 
Private Enum MENUINFO_MASKS
    MIM_MAXHEIGHT = &H1
    MIM_BACKGROUND = &H2
    MIM_HELPID = &H4
    MIM_MENUDATA = &H8
    MIM_STYLE = &H10
    MIM_APPLYTOSUBMENUS = &H80000000
End Enum
 
Private Type MENUINFO
    cbSize As Long
    fMask As MENUINFO_MASKS
    dwStyle As MENUINFO_STYLES
    cyMax As Long
    hbrBack As Long
    dwContextHelpID As Long
    dwMenuData As Long
End Type
 
Private Declare Function GetMenuInfo Lib "user32" (ByVal hMenu As Long, mi As MENUINFO) As Long
Private Declare Function SetMenuInfo Lib "user32" (ByVal hMenu As Long, mi As MENUINFO) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
 
Private Sub Form_Load()
   Dim MyMenu As MENUINFO
   MyMenu.cbSize = Len(MyMenu)
   MyMenu.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
   MyMenu.hbrBack = CreateSolidBrush(vbWhite)
   SetMenuInfo GetMenu(Me.hwnd), MyMenu
End Sub

Add Bitmaps to Menu items

there's a dll called somthing like SmartMenuXP
which will give your apps XP style menus

Quote:

---

Originally posted by DeadEyes
there's a dll called somthing like SmartMenuXP
which will give your apps XP style menus

---

Which would be this here http://www.vbsmart.com/library/smart...martmenuxp.htm

:)

http://www.vbsmart.com/images/smartmenuxp_007.gif

There's a few third party activex controls which'll give you this effect I think I right in saying there's one for download at vbaccelerator.com...

Well done Tom, I'm far too lazy to go looking up links for people :)

Quote:

---

Originally posted by DeadEyes
Well done Tom, I'm far too lazy to go looking up links for people :)

---

:p