2_5 NAMA DENGAN WARNA

Private Sub chkbold_Click()
'membuat teks tebal'
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 bergaris'
If chkstrikethru.Value = 1 Then
lblteks.Fonestrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunderline_Click()
'membuat teks bergaris bawah'
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
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