P6 TUGAS 2 BP1

Private Sub ChkTebal_Click()

lbl2.FontBold = Chk1.Value

End Sub

Private Sub Cmd1_Click()

    lbl2.Caption = txt1.Text

End Sub

Private Sub Cmd2_Click()

    unload me

End Sub

Private Sub OptBiru_Click()

    lbl2.ForeColor = vbBlue

End Sub

Private Sub OptMerah_Click()

    lbl2.ForeColor = vbRed

End Sub

Private Sub ChkMiring_Click()

    lbl2.FontItalic = Chk2.Value

End Sub