Private Sub setHandler(ByVal menuitemcol As MenuItem.MenuItemCollection)
        For Each mi As MenuItem In menuitemcol
            AddHandler mi.Click, AddressOf MenuItem1_Click
            setHandler(mi.MenuItems)
        Next
    End Sub

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MenuItem1.Click
        'MenüItem klickereigniss wird definiert
        Dim mi As MenuItem = CType(sender, MenuItem)
        Debug.WriteLine("Clicked on: " + mi.Text)
        Select Case True
            Case mi Is Me.MenuItem2
                clsForm.F4 = New Form4
                clsForm.F4.Show()
                Me.Hide()
              Case mi Is MenuItem3
                clsForm.F3 = New Form3
                clsForm.F3.Show()
                 Me.Hide()          
 
End Select
 
End Sub

VB@rchiv its the Best