MCICONMENU
Alguem sabe como usar???
Coloque uma imagelist com as imegens que deseja
With mciconmenu1
.ImageList = mcimagelist1.hWnd
.SubClassMenu Me
.ItemIcon("mnuOpen") = mcimagelist1.ItemIndex(1)
End With
With mciconmenu1
.ImageList = mcimagelist1.hWnd
.SubClassMenu Me
.ItemIcon("mnuOpen") = mcimagelist1.ItemIndex(1)
End With
Tópico encerrado , respostas não são mais permitidas