Tugas 2.5

Tugas 2.5

Berikut Source Codenya

Private Sub chku_Click()

If chku.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

'17100003 renaldi zainal arifin

Private Sub chkb_Click()

If chkb.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub chks_Click()

If chks.Value = 1 Then

lbltext.FontStrikethru = True

Else

lbltext.FontStrikethru = False

End If

End Sub

Private Sub chki_Click()

If chki.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub opng_Click()

lbltext.ForeColor = vbGreen

End Sub

Private Sub opnp_Click()

lbltext.ForeColor = vbBlue

End Sub

Private Sub opnr_Click()

lbltext.ForeColor = vbRed

End Sub

Private Sub opny_Click()

lbltext.ForeColor = vbYellow

End Sub

Private Sub cmdquit_Click()

Unload Me

End Sub