Font Color & style

 

Private Sub Check1_Click()

End Sub

Private Sub Chebold_Click()
‘Membuat teks tebal
If Chebold.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub

Private Sub Check3_Click()

End Sub

Private Sub Check4_Click()

End Sub

Private Sub Cheitalic_Click()
‘Membuat teks tebal
If Cheitalic.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub

Private Sub Chestikeout_Click()
‘Membuat teks bergaris tengah
If Chestrikeout.Value = 1 Then
Label1.FontStrikeout = True
Else
Label1.FontStrikeout = False
End If

End Sub

Private Sub Chestrikeout_Click()
‘Membuat teks bergaris tengah
If Chestrikeout.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Cheunderline_Click()
‘Membuat teks bergaris bawah
If Cheunderline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub optblue_Click()
‘Membuat teks berwarna biru
Label1.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
‘Membuat teks berwarna hijau
Label1.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
‘Membuat teks berwarna merah
Label1.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
‘Membuat teks berwarna kuning
Label1.ForeColor = vbYellow
End Sub