Program 6 Merubah Warna Dan Font Masukkan Nama Dan Npm Anda

Private Sub Chk1_Click()

lbl2.FontBold = Chk1.Value

End Sub

Private Sub Chk2_Click()

    lbl2.FontItalic = Chk2.Value

End Sub

Private Sub Cmd1_Click()

    lbl2.Caption = txt1.Text

End Sub

Private Sub Cmd2_Click()

   unload me

End Sub

Private Sub Opt1_Click()

    lbl2.ForeColor = vbBlue

End Sub

Private Sub Opt2_Click()

    lbl2.ForeColor = vbRed

End Sub