Visual Basic 6 - Inserire icone nei menù popup di vb6

Salve qlcn mi saprebbe dire cme faccio a mettere le iconcine nei menu delle systemtray?nei menu normali già ci riesco...grazie a tutti

ma se ci riesci per il menu normale non dovrebbe essere la stessa cosa? O.o

nel senso che, metti che hai form1 e form2

nel form2 grazie al menu editor crei un menu con icone e nel codice del form1

metti:
form1.popupmenu form2.nome_menu

No...purtroppo io ho un icona nel system tray,dove visualizzo i menù...però non riesco a pssargli le icone...appena metto il menù visibile..me le fa visualizzare

allega il progetto al tuo prossimo post (in formato zip) in modo da provare ad aiutarti...

Ti allego il codice perkè il progetto è grande all'incirca 30Mb

è un programma per uno studio legale per il frontoffice

ecco il codice in VB6

-----------------------------
Option Explicit

'Funzioni API per inserire le icone nel menù:
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
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
Public Const MF_BYPOSITION = &H400&
'-------------------------------------------------------------------------
Public Sub InserisciIcone()

'handle per la barra dei menu:
Dim hMenuBarra As Long
'handle menu nella barra:
Dim hMenuPrimo As Long
'handle del SubMenu:
Dim hSubMenu As Long
'risposta della funzione:
Dim ris As Boolean
'Variabili delle immagini:
Dim img1 As Long, img2 As Long, img3 As Long, img4 As Long, _
img5 As Long, img6 As Long

'Menù File:
Dim img1X As ListImage 'Apri
Dim img2X As ListImage 'Chiudi
'Menù Modifica:
Dim img3X As ListImage 'Taglia
Dim img4X As ListImage 'Copia
'Menù Strumenti:
Dim img5X As ListImage 'Backup
Dim img6X As ListImage 'CopiaX

'Menù File:
With MDIMain.ImageList1
Set img1X = .ListImages(1)
' Set img2X = .ListImages(2)
''Menù Modifica:
' Set img3X = .ListImages("Taglia"
' Set img4X = .ListImages("Copia"
''Menù Strumenti:
' Set img5X = .ListImages("Backup"
' Set img6X = .ListImages("CopiaX"
End With

'Menù File:
img1 = img1X.Picture.Handle 'Ottiene l'handle della 1^ immagine
' img2 = img2X.Picture.Handle 'Ottiene l'handle della 2^ immagine
'Menù Modifica:
' img3 = img3X.Picture.Handle 'Ottiene l'handle della 3^ immagine
' img4 = img4X.Picture.Handle 'Ottiene l'handle della 4^ immagine
''Menù Strumenti:
' img5 = img5X.Picture.Handle 'Ottiene l'handle della 5^ immagine
' img6 = img6X.Picture.Handle 'Ottiene l'handle della 6^ immagine

'Ottiene l'handle della barra del menù:
hMenuBarra = GetMenu(MDIMain.hwnd)

''Ottiene l'handle del primo menù - File - (indice che parte da zero):
hMenuPrimo = GetSubMenu(hMenuBarra, 0)
'Impostazione dell'immagine(bmp) Apri:
ris = SetMenuItemBitmaps(hMenuPrimo, 0, MF_BYPOSITION, img1, img1)
'Salta un posto per via della linea di separazione
'Impostazione dell'immagine(bmp) Chiudi:
ris = SetMenuItemBitmaps(hMenuPrimo, 2, MF_BYPOSITION, img2, img2)

'Ottiene l'handle del secondo menù - Modifica - (indice che parte da zero):
hMenuPrimo = GetSubMenu(hMenuBarra, 1, 0)
'Impostazione dell'immagine(bmp) Taglia:
ris = SetMenuItemBitmaps(hMenuPrimo, 0, MF_BYPOSITION, img1, img1)
'Salta un posto per via della linea di separazione
'Impostazione dell'immagine(bmp) Copia:
ris = SetMenuItemBitmaps(hMenuPrimo, 2, MF_BYPOSITION, img2, img2)

mmm... e questa sub la richiami dalla form_load giusto?

si esatto la richiamo nel form load....premetto che sto usando un MDIMain..e che il tutto è scritto in un Modulo

comunque ho trovato questo esempio dove c'è un popup menu con icone

planet-source-code.com/vb/scripts/…