Private Sub ToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs)
        Dim menuItem = CType(sender, ToolStripMenuItem)
        If menuItem.Checked Then 'Nur überprüfen, wenn aktuelles Element ausgewählt ist
            Dim dropDown = CType(menuItem.GetCurrentParent(), ToolStripDropDown) 'Das umschließende Element
            For Each item As ToolStripMenuItem In dropDown.Items 'Über alle Geschwister iterieren
                If item IsNot menuItem Then 'Sicherstellen, dass das aktuelle Element nicht wieder abgewählt wird
                    item.Checked = False 'Geschwisterelement abwählen
                End If
            Next
        End If
    End Sub