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