Codigos Vbbasic 6.0

Solo letras
1. Private Sub TextBox1_KeyPress(ByVal sender As Object, _  
2.                               ByVal e As System.Windows.Forms.KeyPressEventArgs) _  
3.                               Handles TextBox1.KeyPress  
4.   
5.     If Char.IsLetter(e.KeyChar) Then  
6.         e.Handled = False  
7.     ElseIf Char.IsControl(e.KeyChar) Then  
8.        e.Handled = False  
9.     ElseIf Char.IsSeparator(e.KeyChar) Then  
10.         e.Handled = False  
11.     Else  
12.         e.Handled = True  
13.     End If  
14. End Sub   

Solo números
1. Private Sub TextBox1_KeyPress(ByVal sender As Object, _  
2.                               ByVal e As System.Windows.Forms.KeyPressEventArgs) _  
3.                              Handles TextBox1.KeyPress  
4.     If InStr(1, "0123456789,-" & Chr(8), e.KeyChar) = 0 Then  
5.         e.KeyChar = ""  
6.     End If  
7. End Sub   

2 - Cambiar el foco al otro textbox al presionar enter
Colocar varios varios controles textbox y el siguiente código

1. Private Sub TextBox1_KeyPress(ByVal sender As Object, _  
2.                              ByVal e As System.Windows.Forms.KeyPressEventArgs) _  
3.                               Handles TextBox1.KeyPress  
4.     If e.KeyChar = ChrW(Keys.Enter) Then  
5.         e.Handled = True  
6.         SendKeys.Send("{TAB}")  
7.     End If  
8. End Sub  

3 - Seleccionar todo el texto del control al recibir el foco con el método SelectAll
 
Texto planoImprimir
1. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _  
2.                                   ByVal e As System.EventArgs) _  
3.                                   Handles TextBox1.TextChanged  
4.     TextBox1.SelectAll()  
5. End Sub  
6.   
7. Private Sub Form1_Load(ByVal sender As System.Object, _  
8.                        ByVal e As System.EventArgs) _  
9.                        Handles MyBase.Load  
10.    TextBox1.Text = " Un texto "  
11. End Sub  

4 - Evitar el BEEP al apretar Enter
 
Texto planoImprimir
1. Private Sub TextBox1_KeyPress(ByVal sender As Object, _  
2.                               ByVal e As System.Windows.Forms.KeyPressEventArgs) _  
3.                               Handles TextBox1.KeyPress  
4.     If e.KeyChar = Convert.ToChar(Keys.Return) Then  
5.        e.Handled = True  
6.     End If  
7. End Sub   

5 - Mayúsculas y minúsculas con Upper y Lower
 
Texto planoImprimir
1. ' Mayúsculas  
2. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _  
3.                                  ByVal e As System.EventArgs) _  
4.                                  Handles TextBox1.TextChanged  
5.    TextBox1.CharacterCasing = CharacterCasing.Upper  
6. End Sub  
7.   
8. 'Minusculas :  
9.   
10. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _  
11.                                  ByVal e As System.EventArgs) _  
12.                                  Handles TextBox1.TextChanged  
13.     TextBox1.CharacterCasing = CharacterCasing.Lower  
14. End Sub  

6 -Guardar el texto de un textbox en un archivo .txt
Colocar un control Button
Texto planoImprimir
1.  Private Sub Button1_Click(ByVal sender As System.Object, _  
2.                           ByVal e As System.EventArgs) _  
3.                           Handles Button1.Click  
4.     ' Crea el archivo  
5.     FileOpen(1, "c:\texto.txt", OpenMode.Output)  
6.    ' escribe el contenido  
7.     Write(1, TextBox1.Text)  
8.     FileClose(1) ' lo cierra  
9. End Sub  

7 - ReadLine - Leer lineas de un archivo de texto
Ejemplo enviado por Xkiz que lee desde un fichero .txt (ubicado en la carpeta debug ) todas las lineas y las visualiza en unos controles textbox...