PEMILIHAN MULI MEKHANAI

Private Sub Chkbold_Click()
'membuat teks miring
If ChKBOLD.Value = 1 Then
    LBLTEKS.FontBold = True
Else
    LBLTEKS.FontBold = False
End If
End Sub



Private Sub Chkitalic_Click()
'membuat teks miring
If ChkITALIC.Value = 1 Then
    LBLTEKS.FontItalic = True
Else
    LBLTEKS.FontItalic = False
End If
End Sub

Private Sub Chkstrikethru_Click()
'membuat teks garis tengah
If Chkstrikethru.Value = 1 Then
    LBLTEKS.FontStrikethru = True
Else
    LBLTEKS.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
'membuat teks garis bawah
If ChkUNDERLINE.Value = 1 Then
    LBLTEKS.FontUnderline = True
Else
    LBLTEKS.FontUnderline = False
End If
End Sub


Private Sub CMDEXIT_Click()
End
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub OptBLUE_Click()
'membuat teks berwarna biru
LBLTEKS.ForeColor = vbBlue
End Sub

Private Sub OptGREEN_Click()
'membuat teks berwarna hijau
LBLTEKS.ForeColor = vbGreen
End Sub

Private Sub OptRED_Click()
'membuat teks berwarna merah
LBLTEKS.ForeColor = vbRed
End Sub

Private Sub OptYELLOW_Click()
'membuat teks berwarna kuning
LBLTEKS.ForeColor = vbYellow
End Sub