Private Sub MyMenu_Show(ByVal sender As Object, ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            Dim c As New ContextMenu(New MenuItem() {New MenuItem("eintrag1"), _
              New MenuItem("eintrag2"), New MenuItem("eintrag3")})
            c.Show(sender, New Point(0, CType(sender, Label).Height))
        End If
    End Sub
    Private Sub MyMenu_Show_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        CType(sender, Label).Font = New Font(CType(sender, Label).Font, _
        FontStyle.Underline)
    End Sub
    Private Sub MyMenu_Show_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        CType(sender, Label).Font = New Font(CType(sender, Label).Font, _
        FontStyle.Regular)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim l As New Label
        Dim p As New Panel
        p.Location = New Point(20, 20)
        p.BorderStyle = BorderStyle.FixedSingle
        l.Text = "My Menu"
        l.Height = l.CreateGraphics().MeasureString(l.Text, l.Font).Height + 1
        l.Width = l.CreateGraphics().MeasureString(l.Text, l.Font).Width + 1
        AddHandler l.MouseDown, AddressOf MyMenu_Show
        AddHandler l.MouseLeave, AddressOf MyMenu_Show_MouseLeave
        AddHandler l.MouseEnter, AddressOf MyMenu_Show_MouseEnter
        p.Controls.Add(l)
        Me.Controls.Add(p)
    End Sub