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 ...