CODE
Const MF_BYPOSITION=&H400&
'API's GetMenu, GetSubMenu, SetMenuItemBitmaps
Private Sub Form_Load()
Dim menu As Long, submenu As Long
menu = GetMenu(Me.hwnd)
If menu=0 Then
MsgBox "No hay menu"
End
End If
submenu = GetSubMenu (menu, 0)
If submenu=0 Then
MsgBox "No hay submenu"
End
End If
SetMenuItemBitmaps submenu, 0, MF_BYPOSITION, Pic1.Picture, Pic1.Picture
End Sub
Ese Código te debe servir, las imagenes de los iconos deben ser 16*16, Pic1 es un PictureBox, sino entiendes algo preguntas.
Ojala te sirva.
Chao
iconos en los menus en visual basic, iconos en los menus
Jul 30 2005, 12:40 AM
