[RESOLVED] menu item msgbox
I have problem,
How to click _title> _click Item(1,2,3,4,5...),
msgbox "item1,2,3,4,5..."
any idea please!
Code:
Begin VB.Menu MF
Caption = "title"
Begin VB.Menu MenuItem
Caption = "Dumm"
Index = 0
Visible = 0 'False
End
Begin VB.Menu MenuExit
Caption = "exit"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim I As Integer
For I = 1 To 10
Load MenuItem(I)
MenuItem(I).Caption = "Item " & I
MenuItem(I).Visible = True
Next
End Sub