Algunas funciones TextBox

Cambiar a mayúsculas y minúsculas con UPPER y LOWER

' Mayúsculas
    Private Sub TextBox1_TextChanged(ByVal s...
        TextBox1.CharacterCasing = CharacterCasing.Upper
    End Sub
'Minusculas :

    Private Sub TextBox1_TextChanged(ByVal s...
        TextBox1.CharacterCasing = CharacterCasing.Lower
    End Sub  

★·.·´¯`·.·★★·.·´¯`·.·★


Validar TextBox

Solo Caracteres

Private Sub txtMaterno_KeyPress(ByVal s...
If (Not Char.IsLetter(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8))Then
    e.Handled = True
End If
End Sub

Solo numeros

Private Sub txtMaterno_KeyPress(ByVal s...
If (Not Char.IsNumber(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8)) Then
    e.Handled = True
End If
End Sub