PROGRAM 6 TUGAS 2 BP1

Private Sub Chk1_Click()

lbl2.FontBold = Chk1.Value

End Sub

Private Sub Chk2_Click()

    lbl2.FontItalic = Chk2.Value

End Sub

Private Sub Command1_Click()

    lbl2.Caption = txt1.Text

End Sub

Private Sub Command2_Click()

 Unload me

End Sub

Private Sub Opt1_Click()

    lbl2.ForeColor = vbBlue

End Sub

Private Sub Opt2_Click()

    lbl2.ForeColor = vbRed

End Sub