Tugas 2 Program 5

Private Sub Cmdext_Click()

End

End Sub

Private Sub Optred_Click()

Lbltxt.ForeColor = vbRed

End Sub

Private Sub Optbiru_Click()

Lbltxt.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Lbltxt.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Lbltxt.ForeColor = vbYellow

End Sub

Private Sub chkbold_Click()

If Chkbold.Value = 1 Then

Lbltxt.FontBold = True

Else

Lbltxt.FontBold = False

End If

End Sub

Private Sub chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltxt.FontUnderline = True

Else

Lbltxt.FontUnderline = False

End If

End Sub

Private Sub chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltxt.FontStrikethru = True

Else

Lbltxt.FontStrikethru = False

End If

End Sub

Private Sub chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltxt.FontItalic = True

Else

Lbltxt.FontItalic = False

End If

End Sub