Program VB Untuk Merubah Tipe dan Warna Huruf

Private Sub cmproses_Click() // Pada Saat Command Buton di click maka akan merubah tipe dan
                     // Warna Huruf sesuai option atau chekbox yang dipilih
If cektipe1.Value = 1 Then
    txhuruf.FontBold = True
Else
    txhuruf.FontBold = False
End If
If cektipe2 = 1 Then
    txhuruf.FontItalic = True
Else
    txhuruf.FontItalic = False
End If

If cektipe3 = 1 Then
    txhuruf.FontUnderline = True
Else
    txhuruf.FontUnderline = False
End If
If optwarna1 = True Then
    txhuruf.ForeColor = vbRed
End If
If optwarna2 = True Then
    txhuruf.ForeColor = vbGreen
End If
If optwarna3 = True Then
    txhuruf.ForeColor = vbBlue
End If
If optwarna4 = True Then
    txhuruf.ForeColor = vbBlack
End If
If optwarna5 = True Then
    txhuruf.ForeColor = vbYellow
End If

End Sub

Private Sub cmkeluar_Click()
End
End Sub

Private Sub txhuruf_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub