Private Sub Check1_Click()
If Check1.Value = 0 Then
Me.Caption =
"隐藏按钮
"
Command1.Visible = False
Check2.Visible = False
Else
Me.Caption =
"显示按钮
"
Command1.Visible = True
Check2.Visible = True
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 0 Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub