Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    Button1.Text = "A"
    Button2.Text = "B"
 
    With ContextMenuStrip1
      .Items.Add(New ToolStripMenuItem("A"))
      .Items.Add(New ToolStripMenuItem("B"))
    End With
  End Sub
 
  Private Sub Button_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
 
    ' Kontextmenü aufrufen
    Dim oButton As Button = CType(sender, Button)
    With ContextMenuStrip1
      .Tag = oButton
      For Each oItem As ToolStripMenuItem In .Items
        oItem.Checked = (oItem.Text.Equals(oButton.Text))
      Next
      .Show(oButton, 0, oButton.Height)
    End With
  End Sub
 
  Private Sub ContextMenuStrip1_ItemClicked(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) _
    Handles ContextMenuStrip1.ItemClicked
 
    Dim oButton As Button = CType(ContextMenuStrip1.Tag, Button)
    oButton.Text = e.ClickedItem.Text
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de