 items in code:
   pCreateMenuItems
        
End Sub


Private Sub mnuEdit_Click(Index As Integer)
    MsgBox "Visual Basic Menu Edit Fired for Index:" &amp; Index, vbInformation
End Sub

Private Sub mnuFile_Click(Index As Integer)
   If (Index = 11) Then
      If (vbYes = MsgBox("Are you sure you want to exit?", vbYesNo Or
       vbQuestion)) Then
         Unload Me
      End If
   Else
      MsgBox "Visual Basic Menu File Fired for Index:" &amp; Index, vbInformation
   End If
End Sub

Private Sub mnuHelp_