PROGRAM 6 BP1 TUGAS 2

Private Sub Check1_Click()

lbl2.FontBold = Check1.Value

End Sub

Private Sub Command1_Click()

    lbl2.Caption = text1.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

Private Sub Check2_Click()

    lbl2.FontItalic = Check2.Value

End Sub