JENIS TULISAN

Private Sub ChkBold_Click()
LblA.FontBold = ChkBold.Value
End Sub

Private Sub ChkItalic_Click()
LblA.FontBold = ChkItalic.Value
End Sub

Private Sub cmdok_Click()
LblA.Caption = Txttulis.Text
End Sub

Private Sub cmdselesai_Click()
End
End Sub

Private Sub Optblue_Click()
LblA.ForeColor = vbBlue
End Sub

Private Sub Optred_Click()
LblA.ForeColor = vbRed
End Sub