Se volette inserire delle icone nei vostri menù...


codice:
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
 Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long,
ByVal
 nPos As Long) As Long
 Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As
 Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal
hBitmapUnchecked
 As Long, ByVal hBitmapChecked As Long) As Long

 Private Const MF_BYPOSITION = &H400&

 '* imlMenu è un'ImageList. Nota le immagini per i Menu devono essere
13X13.

 Private Sub Form_Load()

     '* Assegna le immagini nei menu nel Form
     Dim hMenuBarra As Long          '* handle per la barra dei menu
     Dim hMenuFile As Long          '* handle del primo menu nella barra
     Dim ris As Boolean              '* risposta della funzione

     '* Ottiene l'handle della barra del menu
     hMenuBarra = GetMenu(frmMDI.hwnd)
     '* Ottiene l'handle del primo menu (indice che parte da zero)
     hMenuFile = GetSubMenu(hMenuBarra, 0)
     '* Assegnazione immagini Menu File
     ris = SetMenuItemBitmaps(hMenuFile, 0, MF_BYPOSITION, _
         imlMenu.ListImages(1).Picture.Handle, _
         imlMenu.ListImages(1).Picture.Handle)
 End Sub