PROGRAM 6 TUGAS 2

 Private Sub Chk1_Click()

lblnama.FontBold = Chk1.Value

End Sub

Private Sub Chk2_Click()

lblnama.FontItalic = Chk2.Value

End Sub

Private Sub Command1_Click()

lblnama.Caption = txt1

End Sub

Private Sub Command2_Click()

 unload me

End Sub

Private Sub Opt1_Click()

lblnama.ForeColor = vbBlue

End Sub

Private Sub Opt2_Click()

 lblnama.ForeColor = vbRed

End Sub