/VBA/Menus act like radio buttons vb.net

Menus act like radio buttons vb.net

' Uncheck all menu items in this menu except checked_item.
Private Sub CheckMenuItem(ByVal mnu As ToolStripMenuItem, _
    ByVal checked_item As ToolStripMenuItem)
    ' Uncheck the menu items except checked_item.
    For Each item As ToolStripItem In mnu.DropDownItems
        If (TypeOf item Is ToolStripMenuItem) Then
            Dim menu_item As ToolStripMenuItem = _
                DirectCast(item, ToolStripMenuItem)
            menu_item.Checked = (menu_item Is checked_item)
        End If
    Next item
End Sub

Source: vb-helper.com

Similar codes

0 vote244 views1 answer
Excel vba protect scenarios
VBA
0 vote220 views1 answer
Vba declare 64-bit ptrsafe
VBA
3 votes230 views1 answer
Extract the nth word from a text string
VBA
8 votes369 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote263 views1 answer
Vb ternary
VBA
0 vote207 views1 answer
Change "location" of binding navigator vb
VBA
0 vote236 views1 answer
VB Error Code BC30201
VBA
8 votes249 views1 answer
Excel vba make integer
VBA
0 vote227 views1 answer
VBA Sleep Snippet
VBA
0 vote217 views1 answer
Do while not vb.net
VBA