Public Class CForm2
    Inherits CForm1
 
Friend Sub New()
Private Test As New MenuItem("Testmenü")
Private WithEvents BlaBla As New MenuItem("Testmenüeintrag1")
 
MainMenu.MenuItems.Add(Test)
Test.MenuItems.Add(BlaBla)
 
End Sub
 
    Private Sub BlaBla _Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) 
 
    End Sub
 
End Class