Funciones De Textbox Y Comandbuton En Visual Basic

Función de TextBox y ComanndButon en Visual Basic
Los controles intrínsecos son aquellos que aparecen "cargados por defecto" en el cuadro de herramientas con abres VB. Estos se diferencian de losextrínsecos, por que una aplicación creada únicamente con estos controles (y sin agregar referencias o librerías) se puede distribuir sin instalador (algunas veces).
TextBox (Caja de texto) :

Seutiliza para el ingreso y validación de datos o información.
Algunas Propiedades
Text: Almacena la cadena de caracteres que contenga el control.
DataFiled: Enlaza en control con un campo de basede datos.
DataSource: Enlaza el control con un origen de manipulación de base de datos.
MultiLine: Permite escribir varias líneas en el control.
ScrollBars: Agrega barras de desplazamiento alcontrol si esta MultiLine = True
PasswordChar: Es el carácter que ocultara el texto que se escribe en el control, por ejemplo PasswordChar = * (Asterisco).
Locked = Permite bloquear la escriturasobre el Textbox.
Hacer que un Textbox solo reciba números:
Podemos utilizar el siguiente condicional en el evento Validate que no nos permitirá salir del control si lo escrito en él no son números:Private Sub Text1_Validate(Cancel As Boolean)
If Not IsNumeric(Text1.Text) Then
Cancel = True
Else
Text2.SetFocus
End If
End Sub
Pero para que las teclas "de letras" o "símbolos" no sepuedan escribir es necesario:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
If KeyAscii <> Asc("8") Then
If KeyAscii <> Asc("7") Then
IfKeyAscii <> Asc("6") Then
If KeyAscii <> Asc("5") Then
If KeyAscii <> Asc("4") Then
If KeyAscii <> Asc("3") Then
If KeyAscii <> Asc("2") Then
If KeyAscii <>Asc("1") Then
If KeyAscii <> Asc("0") Then
If KeyAscii <> 8 Then
If KeyAscii <> 32 Then
KeyAscii = 0
End If
End If
End If
End If
End If
End If
End If
End If...