Rilevare quale sotto-voce di menu è stata cliccata

Per rilevare quale sotto-voce (item ) di un Menu è stata cliccata, è possibile usare il seguente codice:

Public Sub Form_Open()

 Dim Menu1, Menu2, Menu3, Menu4 As Menu

 With Menu1 = New Menu(Me)' As "Menu1"
   .Caption = "Menu1"
 End With

 With Menu2 = New Menu(Menu1) As "Mn"
   .Caption = "Menu2"
 End With
 With Menu3 = New Menu(Menu1) As "Mn"
   .Caption = "Menu3"
 End With
 With Menu4 = New Menu(Menu1) As "Mn"
   .Caption = "Menu4"
 End With

End


Public Sub Mn_Click()

 Print Last.Caption

End