du opretter en knap og en contextmenustrip
knap = Button1
contextmenustrip = ContextMenuStrip1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ContextMenuStrip1.Items.Add("item1")
ContextMenuStrip1.Items.Add("item2")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ContextMenuStrip1.Show(Button1, New Point(0, Button1.Height))
End Sub