比如你的菜单某一项时openok
Private Sub openok_Click()
    openok.checke=true
End Sub