by Niaz Hussain Jagirani (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 7th October 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Use Check Box's as a Command Button.
VBcoders
' 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/