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 ...