Private Sub chkbold_Click()
If chkbold.Value = 1 Then
lbl1.FontBold = True
Else
lbl1.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
If chkitalic.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub optblue_Click()
lbl1.ForeColor = vbBlue
End Sub

Private Sub optred_Click()
lbl1.ForeColor = vbRed
End Sub

Private Sub cmdoke_Click()
lbl1.Caption = txt1.Text
End Sub

Private Sub cmdselesai_Click()
Unload Me
End Sub