Tugas 2 Program 6 (Mengatur Font dan Style)

Private Sub Check3_Click()

If Check3.Value = 0 Then

    Label2.FontBold = False

Else

If Check3.Value = 1 Then

    Label2.FontBold = True

End If

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 0 Then

    Label2.FontItalic = False

Else

If Check4.Value = 1 Then

    Label2.FontItalic = True

End If

End If

End Sub

Private Sub Command1_Click()

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Option1_Click()

If Option1.Value = True Then

    Label2.ForeColor = vbRed

End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

    Label2.ForeColor = vbBlue

End If

End Sub

Private Sub Text1_Change()

Label2 = Text1.Text

End Sub