MainMenu中控制点击效果

其实很简单，在菜单的单击事件中添加处理就可以了：

    ' 菜单单击事件
    Public Sub Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim mmCmd As C1Command
        mmCmd = CType(sender, C1Command)
        If mmCmd.Checked = False Then
            mmCmd.Checked = True
        Else
            mmCmd.Checked = False
        End If
End Sub

通过以上代码，点击菜单，就可以看到点击的效果了：

再点击一次：