Public Class Form1
 
    Dim WithEvents mnuMain As New MenuStrip With {.Parent = Me}
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        mnuMain.Items.Add("mach es")
    End Sub
 
    Private Sub mnuMain_Click(sender As Object, e As System.EventArgs) Handles _
      mnuMain.Click
        MsgBox("Ich mag es nicht machen")
    End Sub
End Class