Tugas 2.6 font warna

Private Sub Check1_Click()
label2fontBold = Check1.Value
End Sub

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

Private Sub Command1_Click()
Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed

End Sub