I never wrote a program before that had a control array of menu items, but with a little experimentation I found that you can just to this
Code:
Private Sub mnuItem_Click(Index As Integer)
MsgBox Index ' You could use a Case statement here
End Sub
BTW I had to manually add the "Index As Integer".