Mengenal Fungsi Dasar Dari CheckBox & OptionBox Pada Vb 6

Buatlah  Form baru dengan beberapa component dari Tab Component yang berfungsi untuk mengoperasikan fungsi dari CheckBox dan juga OptionBox seperti pada Gambar di bawah ini.

dan setelah anda buat Form nya seperti pada gambar di atas,lalu pada "Label2" hapus tulisan nya,maka akan tampak seperti pada gambar di bawah ini setelah Program nya anda "Run".

Kemudian silahkan anda kembali lagi ke form awal,lalu masukan Source Code - Source Code di bawah ini,jika penempatan nya benar,maka hasilnya akan seperti pada gambar di bawah ini.

Inilah Source Code - Source Code yang anda masukan pada setiap component yang anda masukan ke dalam Form tersebut.

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Check3_Click()
Label2.FontUnderline = Check3.Value
End Sub

Private Sub Cmdok_Click()
Text1.SetFocus
Label2.Caption = Text1.Text
Text1.Text = kosong
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdclear_Click()
Label2 = kosong
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option3_Click()
Label2.ForeColor = vbBlack
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Command1.SetFocus
Dim a As Integer
     a = Text1.SelStart
     Text1.Text = StrConv(Text1.Text, vbProperCase)
     Text1.SelStart = a
End Sub

Ok Guys.. Selamat Mencoba.. Good Luck..!!