Tugas 2 Program 6

Private Sub Cmdoke_Click()

lbltext1.Caption = txtnnm.Text

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Optbiru_Click()

lbltext1.ForeColor = vbBlue

End Sub

Private Sub Optred_Click()

lbltext1.ForeColor = vbRed

End Sub

Private Sub Chkbold_Click()

lbltext1.FontBold = Chkbold.Value

End Sub

Private Sub Chkitalic_Click()

lbltext1.FontItalic = Chkitalic.Value

End Sub