1. Visual Basic - Curso completo teoria y practica

Private Sub ChkSubrayado_Click()
If ChkSubrayado.Value Then
Else
End Sub
End If
TxtMensaje.Font.Underline = True
TxtMensaje.Font.Underline = False
Private Sub ChkMayuscula_Click()
End Sub
If ChkMayuscula.Value Then
End If
TxtMensaje = UCase(TxtMensaje)
Private Sub TxtMensaje_KeyPress(KeyAscii As Integer)
End Sub
Dim CAR As String * 1
If ChkMayuscula.Value Then
End If
CAR = UCase(Chr(KeyAscii))
KeyAscii = Asc(CAR)
La función RGB() especifica el color que se asigna a la
propiedad ForeColor.
La función UCase() retorna una cadena de caracteres en
mayúsculas.
Pág. 69