TUGAS 2 PROGRAM 6 BP1

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Label2.FontItalic = Check1.Value

End Sub

Private Sub Command1_Click()

Label2.Caption = Text1

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub