diseño de menú vb

Función de declaración privada SetMenuItemBitmaps Lib "User32" (ByVal hMenu mientras, ByVal nPosition mientras, ByVal wFlags mientras, ByVal ByVal hBitmapUnchecked mientras, ByVal hBitmapChecked mientras) Mientras

Función de declaración privada GetMenu Lib " User32" (ByVal hwnd As Long) As Long

Función de declaración privada GetSubMenu Lib "User32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Const privada MF_BYCOMMAND = amp; H0amp;

Const privado MF_BYPOSITION = amp; H400amp

Sub Form_Load()

Dim lngMenuHwnd As Long

lngMenuHwnd = GetMenu(Me .hwnd)

Dim lngSubMenuHwnd As Long

lngSubMenuHwnd = GetSubMenu(lngMenuHwnd, 0)

SetMenuItemBitmaps lngSubMenuHwnd, 0, MF_ BYPOSITION, Picture1.Picture .Handle, 0

SetMenuItemBitmaps lngSubMenuHwnd, 1, MF_BYPOSITION, loadpicture(app.path amp; "\a.bmp"), 0

' SetMenuItemBitmaps

End Sub

Carga la imagen en Imagen 1 en el primer submenú y carga el directorio actual a.bmp en el segundo submenú

.