tugas membuat font

Private Sub biru_Click()
'membuat teks berwarna biru
hasil.ForeColor = vbBlue

End Sub

Private Sub coret_Click()
If coret.Value = 1 Then
hasil.FontStrikethru = True
Else
hasil.FontStrikethru = False
End If
End Sub

Private Sub garisbawah_Click()
'membuat garis bawah
If garisbawah.Value = 1 Then
hasil.FontUnderline = True
Else
hasil.FontUnderline = False
End If
End Sub

Private Sub hijau_Click()
'membuat teks berwarrna hijau
hasil.ForeColor = vbGreen
End Sub

Private Sub keluar_Click()
End

End Sub

Private Sub kuning_Click()
'membuat teks berwarna kuning
hasil.ForeColor = vbYellow

End Sub

Private Sub merah_Click()
'membuat teks berwarna merah
hasil.ForeColor = vbRed

End Sub

Private Sub miring_Click()
'membuat teks miring
If miring.Value = 1 Then
hasil.FontItalic = True
Else
hasil.FontItalic = Falseen
End If
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