Tugas 2.5

Tugas 2.5

Option Explicit

Private Sub chkud_Click()

If Chkud.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

Private Sub chkbl_Click()

If Chkbl.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

Private Sub chkso_Click()

If Chkso.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

Private Sub chkit_Click()

If Chkit.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

Private Sub opngr_Click()

Lbltext.ForeColor = vbGreen

End Sub

Private Sub opnbl_Click()

Lbltext.ForeColor = vbBlue

End Sub

Private Sub opnrd_Click()

Lbltext.ForeColor = vbRed

End Sub

Private Sub opnyl_Click()

Lbltext.ForeColor = vbYellow

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub