tugas 2.4

TULIS NAMA ANDA

Private Sub Chkbold_Click()

Label2.FontBold = Chkbold.Value

End Sub

Private Sub Chkitalic_Click()

Label2.FontItalic = Chkitalic.Value

End Sub

Private Sub Chkstrikethru_Click()

Label2.FontStrikethru = Chkstrikethru.Value

End Sub

Private Sub Chkunderline_Click()

Label2.FontUnderline = Chkunderline.Value

End Sub

Private Sub Cmdok_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmdselesai_Click()

Unload Me

End Sub

Private Sub Optbiru_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optmerah_Click()

Label2.ForeColor = vbRed

End Sub