Penggunaan CheckBox Pada VB 6.0

Pada Pembelajaran Visual Basic 6.0 kali ini adalah Penggunaan CheckBox pada VB 6.0. CheckBox adalah Komponen ToolBox yang anda manfaatkan dalam membuat Form (Optional tergantung kebutuhan anda. Contoh penggunaannya adalah sebagai berikut :

Buatlah atau Design sebuah form seperti contoh dibawah :

Kemudian pada Form1 atau Form diatas masukan Koding dibawah ini :

Private Sub option1_Click()
Label1.ForeColor = vbBlack
End Sub
Private Sub option2_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub option3_Click()
Label1.ForeColor = vbYellow
End Sub

Private Sub option4_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub option5_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub check1_Click()
If Check1.Value = vbChecked Then
    Label1.FontBold = True
ElseIf Check1.Value = vbUnchecked Then
    Label1.FontBold = False
End If
End Sub
Private Sub check2_Click()
If Check2.Value = vbChecked Then
    Label1.FontItalic = True
ElseIf Check2.Value = vbUnchecked Then
    Label1.FontItalic = False
End If
End Sub
Private Sub check3_Click()
If Check3.Value = vbChecked Then
    Check4.Value = vbUnchecked
    Label1.FontSize = 12
ElseIf Check3.Value = vbUnchecked Then
    Label1.FontSize = 18
End If
End Sub
Private Sub check4_Click()
If Check4.Value = vbChecked Then
    Check3.Value = vbUnchecked
    Label1.FontSize = 20
ElseIf Check4.Value = vbUnchecked Then
    Label1.FontSize = 18
End If
End Sub

Silahkan anda Run atau Jalankan Project VB 6 anda
Semoga Pembelajaran diatas akan bermanfaat untuk anda :)