Private Sub ContextMenuStrip1_ItemClicked(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles _
      ContextMenuStrip1.ItemClicked
        ContextMenuStrip1.Hide()
 
        Dim tm As ToolStripMenuItem = e.ClickedItem
        tm.Checked = True ' bzw. tm.Subitem.Checked = True
        ButtonVonDemAufgerufenWurde.Text = tm.Name ' bzw. tm.Subitem.Name
    End Sub
 
    Private Sub ContextMenuStrip1_Opened(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) _
        Handles ContextMenuStrip1.Opened
 
        Dim tm As ToolStripMenuItem = ButtonVonDemAufgerufenWurde.Text ' oder 
        ' hald nen Subitem
        tm.Checked = True
    End Sub

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?