• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Use Check Box's as a Command Button.

Use Check Box's as a Command Button.

Use Check Box's as a Command Button.

Rate Use Check Box's as a Command Button.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' You are great peaople.
' if you have any problim or you want to get suggestion, please
' send me email [email protected]
' http://www.wspa.tk/

Private Sub Check1_Click()
If Check3.Value = 1 Then
MsgBox "you have clicked Check Box 1! on"
Else
MsgBox "you have clicked Check Box 1! of"
End If
End Sub

Private Sub Check2_Click()
If Check3.Value = 1 Then
MsgBox "you have clicked Check Box 2! on"
Else
MsgBox "you have clicked Check Box 2! of"
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
MsgBox "you have clicked Check Box 3! on"
Else
MsgBox "you have clicked Check Box 3! of"
End If
End Sub

Private Sub Form_Activate()
' Please go properies and change - Check1.Style = 1 - Graphical
Check1.Font = "Monotype Corsiva"
Check1.FontSize = 14
Check1.FontBold = True
Check1.Width = 3375
Check1.Height = 495
Check1.BackColor = &HC0FFC0

' Please go properies and change - Check2.Style = 1 - Graphical
Check2.Font = "Monotype Corsiva"
Check2.FontSize = 14
Check2.FontBold = True
Check2.Width = 3375
Check2.Height = 495
Check2.BackColor = &HC0FFC0

' Please go properies and change - Check3.Style = 1 - Graphical
Check3.Font = "Monotype Corsiva"
Check3.FontSize = 14
Check3.FontBold = True
Check3.Width = 3375
Check3.Height = 495
Check3.BackColor = &HC0FFC0
End Sub

' You are great peaople.
' if you have any problim or you want to get suggestion, please
' send me email [email protected]
' http://www.wspa.tk/