菜单前的对号怎么加？

Question

记事本有一菜单项“自动换行”，点击它后前面就多了或少了个对号，这个怎么实现？不要告诉我在click事件中修改菜单名哦，我要正统的办法

Answer 1

Private Sub save_Click()
save.Checked = True'save是子菜单名
End Sub

Answer 2

Private Sub mnuChecked_Click ()
mnuChecked.Checked = Not mnuChecked.Checked
'然后根据 checked 状态写相应的操作代码
End Sub