2.6

 2.6

Private Sub cmdok_Click()

lbljawaban.Caption = txttulisan.Text

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub opnb_Click()

lbljawaban.ForeColor = vbBlue

End Sub

Private Sub opnm_Click()

lbljawaban.ForeColor = vbRed

End Sub

Private Sub chkt_Click()

If chkt.Value = 1 Then

lbljawaban.FontBold = True

Else

lbljawaban.FontBold = False

End If

End Sub

Private Sub chkm_Click()

If chkm.Value = 1 Then

lbljawaban.FontItalic = True

Else

lbljawaban.FontItalic = False

End If

End Sub