vb中怎样设置菜单项中的checked属性？

可以在VB的菜单编辑器中直接设置复选，或者在属性管理器是选择相应的菜单，修改checked属性，还可以能过代码，动态修改。

动态修改代码：

Private Sub tm_Click()

  tm.Checked = Not tm.Checked '自动设置Checked

End Sub

如下图所示：

执行效果

点击后

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim i As Integer

'遍历，清空除了第一个以外所有Check1的选中（跳过第一个为了保留第一个的选中属性）

For i = 1 To 63

Check1(i).Value = 0

Next

Check1(Index).Value = 1 '选中刚刚点击的

End Sub

---