tugas 2.6 bahsa pemrogaman 1

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

Private Sub Hijau_Click()
'membuat teks berwarna Hijau
Hasil.ForeColor = vbGreen
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 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