2.6

Private Sub Hitam_Click()
'membuat teks berwarna Hitam
Hasil.ForeColor = vbBlack
End Sub

Private Sub Biru_Click()
'membuat teks berwarna Biru
Hasil.ForeColor = vbBlue
End Sub

Private Sub Merah_Click()
'membuat teks berwarna Merah
Hasil.ForeColor = vbRed
End Sub

Private Sub Hijau_Click()
'membuat teks berwarna Hijau
Hasil.ForeColor = vbGreen
End Sub

Private Sub Tebal_Click()
'membuat teks tebal
If Tebal.Value = 1 Then
Hasil.FontBold = True
Else
Hasil.FontBold = False
End If
End Sub

Private Sub Miring_Click()
'membuat teks miring
If Miring.Value = 1 Then
Hasil.FontItalic = True
Else
Hasil.FontItalic = False
End If
End Sub

Private Sub GarisBawah_Click()
'membuat teks GarisBawah
If GarisBawah.Value = 1 Then
Hasil.FontUnderline = True
Else
Hasil.FontUnderline = False
End If
End Sub

Private Sub Coret_Click()
'membuat teks coret
If Coret.Value = 1 Then
Hasil.FontStrikethru = True
Else
Hasil.FontStrikethru = False
End If
End Sub

Private Sub Keluar_Click()
End
End Sub