Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long Const MF_BITMAP = 4 Const MF_CHECKED = 8 Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim hMenu As Long, hSubMenu As Long, lngID As Long hMenu = GetMenu(Me.hWnd) hSubMenu = GetSubMenu(hMenu, 0) 'Change le premier item (index=0) picBitmaps(0).Picture = picBitmaps(0).Image lngID = GetMenuItemID(hSubMenu, 0) Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(0).Picture)) 'Change le premier item (index=1) picBitmaps(1).Picture = picBitmaps(1).Image lngID = GetMenuItemID(hSubMenu, 1) Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(1).Picture)) 'Change le premier item (index=2) picBitmaps(2).Picture = picBitmaps(2).Image lngID = GetMenuItemID(hSubMenu, 2) Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(2).Picture)) mnuBitmap1.Checked = True End Sub Private Sub mnuBitmap1_Click() mnuBitmap1.Checked = Not mnuBitmap1.Checked End Sub Private Sub mnuBitmapEnd_Click() End End Sub