在菜单代码中设置我这有一个菜单!子菜单和主菜单名分别为dd和d子菜单的代码如下!·!
Private Sub dd_Click()
If dd.Checked = True Then
 dd.Checked = False
Else
 dd.Checked = True
End If
End Sub我调试过好用的!