Por tanto lo que se hace es seleccionar todo el contenido del TextBox, las propiedades SelStart y SelLength también se podrían usar para saber cuál es el texto que hay seleccionado y poderlo usar en los casos de búsqueda y sustitución de palabras. Pero hay otra forma más rápida de saberlo, mediante la propiedad SelText del TextBox, con esta propiedad nos indica que texto es el que está seleccionado en ese momento.
Para almacenar en una variable el texto que actualmente está seleccionado, haremos esto:

Evento LostFocus.

En el evento LostFocus se suele comprobar si el contenido es el que se espera que haya. Realmente es un pequeño problema el tener que validar los datos en este evento, ya que cuando se producen, inmediatamente hay otro control que recibe el foco y si resulta que los datos contenidos en ese control no son los que esperábamos se intente volver a darle el foco a este control, con lo cual se produciría un evento LostFocus en el control que recibió el foco cuando el primero lo perdió y si en ese segundo control también hay una comprobación de datos y éstos son erróneos, tendremos tal cacao que el pobre Visual Basic se terminará quejándose.

Aunque el que se habrá quejado habrá sido tú, ya que me imagino que no te has enterado de lo que acabo de decir, pero no te voy a dar un ejemplo para que lo entiendas, en vez de eso, te voy a poner un ejercicio y así de camino practicas un poco.

Crea un proyecto nuevo, en el Form inserta dos TextBox y CommandButton, el botón se usará para salir del programa, en cada uno de los TextBox se comprobará que el contenido no esté vacio y no se permitirá salir del TextBox en cuestión si el contenido no es el que esperamos que sea, por ejemplo, podrías hacer que el primero sólo admita números y el segundo sólo letras. Aunque esto se podría hacer de otra forma, prefiero que lo hagas en el LostFocus, para que practiques.
Pero como te digo, si lo prefieres, puedes validar cualquier otra cosa, por ejemplo que tenga algo escrito o cualquier otra cosa que se te ocurra... yo no suelo validar casi nada en esos eventos ya que normalmente suelen dar más quebraderos de cabeza que ventajas. Pero de lo que se trata es que seas tú el que decida que es lo mejor o peor para tus programas, esto es extensible a cualquier otra cosa que yo u otra persona pueda decirte: evalúalo primero y después decide si es lo que realmente te hace falta.

Para que realmente funcionen esas comprobaciones, asignales una cadena vacia nada más cargarse el formulario y añade también código al botón de salir para que descargue el formulario, así podrás comprobar que hasta que no se cumplan las condiciones especificadas, no dejará de "pitarte" para que escribas lo que debes escribir.
Por supuesto, estas comprobaciones se harán en los eventos LostFocus de cada control y si el contenido no cumple las condiciones que esperamos, habrá que volver a darle el foco, usando el método SetFocus, además de un Beep para que sepamos que los datos contenidos no son válidos.

El código a usar sería algo como esto:

Private Sub Text1_LostFocus()
    '...
    'Si el contenido del control no es válido entonces
    Beep
    Text1.SetFocus    'Volvemos a darle el foco
End Sub

Pruébalo y verás cómo ahora entenderás lo que digo, y si no lo entiendes al menos habrás visto cómo el Visual Basic se queja.

Bueno, vale, te pongo el código que no permitirá que los TextBoxes estén vacios y si está al cambiar de control, se quedará en ese, pero como te he dicho, esto volverá loco al VB.

'----------------------------------------------------
'Pruebas para la entrega veinticinco del curso básico
'----------------------------------------------------
Option Explicit

Private Sub Form_Load()
    'Borramos el contenido de los TextBox
    Text1 = ""
    Text2 = ""

    'Hacemos que el Text1 sea el primero en recibir el foco
    Text1.TabIndex = 0
End Sub

Private Sub cmdSalir_Click()
    Unload Me
End Sub

Private Sub Text1_LostFocus()
    'No permitir que el TextBox esté vacio
    If Len(Trim$(Text1)) = 0 Then
        Beep
        Text1.SetFocus
    End If
End Sub

Private Sub Text2_LostFocus()
    'No permitir que el TextBox esté vacio
    If Len(Trim$(Text2)) = 0 Then
        Beep
        Text2.SetFocus
    End If
End Sub

Ejecuta el programa, el foco lo tendrá el primer cuadro de texto, sin escribir nada, pulsa la tecla TAB para cambiar al otro control, verá cómo el VB se vuelve turuta... Tendrás que pulsar Control+Break (Cttl+Inter) para pararlo...

En la versión 6 del VB se incluye un nuevo evento: Validate que será el que se use para "validar" el contenido de un TextBox, en lugar de hacerlo en el evento LostFocus. Sobre este evento ya veremos algo más adelante (en unas cuantas celebraciones más), aunque dentro de poco lo podrás ver en la sección sobre el VB6 que tengo en mis páginas, las cuales seguramente se sumarán en su momento a este curso... cuando les toque el turno.

Evento Change.

Otro evento relacionado con los controles que permiten introducir información es: Change. Este evento se disparará siempre que el contenido del control cambie, por tanto en un TextBox se producirá si lo que hay en la propiedad Text cambia.
Esto ya lo vimos en las primeras entregas, además de cómo no usar este evento, para que no diese un error de desbordamiento de la pila.

Arrastrar y Soltar controles y otros "objetos".

Pero no creas que esto terminar aquí ya que te voy a explicar algo sobre cómo arrastrar y soltar, ya que ésta es una de las peculiaridades del entorno Windows y es una de las cosillas que deberías de tener siempre en tus aplicaciones. Aunque el ejemplo y la explicación que te voy a dar es para el Visual Basic 5, si quieres ver cómo se hace con la versión anterior te recomiendo que te leas los trucos de mis páginas.
También te voy a dar un ejemplo de cómo hacer que se puedan mover los controles de tamaño y o posición dentro del formulario, en tiempo de ejecución, claro. No es perfecto, pero medio funciona, el problema que tiene es que hay que codificar en muchos eventos, pero para ello he creado unos procedimientos para hacer menos tedioso el tema...
La "versión" que tenía antes de esta "utilidad", no permitía que se soltara un control encima de otro, sólo permitía que se soltasen en el formulario, osea, si en la nueva posición había otro control, no se dejaba en ese sitio...
Pero como te digo, ahora va mucho mejor... después de el evento OLEDragDrop veremos el código y un poco de explicación.

Evento OLEDragDrop.

Veamos primero cómo hacer que nuestra aplicación permita que se suelte un fichero y cuando se haga se muestre en un TextBox, por tanto no pruebes con ficheros que no sean de texto.
Para poder hacer esto, hay que asignar las siguientes propiedades del Form y del TextBox que mostrará el texto:
OLEDropMode = 1 ' Manual
El TextBox debería ser Multiline para que se muestre bien el fichero soltado.

Para asignar a un TextBox el primer fichero de los que se sueltan en un formulario o cualquier control que tenga la propiedad OLEDropMode igual a uno, vamos a usar un procedimiento genérico, se supone que será para ficheros de texto, incluso documentos RTF si el control en cuestión es un RecichTextBox.

Private Sub AsignarFichero(unTextBox As Control)
    'Asignar al TextBox indicado el contenido del fichero soltado
    Dim sFic As String
    Dim nFic As Long
    Dim sText As String

    'Asignar sólo el primer fichero
    sFic = Data.Files(1)

    'Abrirlo y leer el contenido
    nFic = FreeFile
    Open sFic For Input As nFic
    sText = Input$(LOF(nFic), nFic)
    Close nFic

    'Asignarlo al control indicado
    unTextBox = sText
End Sub

Para usar este procedimiento, lo llamaremos desde el evento OLEDragDrop del formulario y del control en cuestión:

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, _
            Button As Integer, Shift As Integer, X As Single, Y As Single)
    AsignarFichero Text3
End Sub

Private Sub Text3_OLEDragDrop(Data As DataObject, Effect As Long, _
            Button As Integer, Shift As Integer, X As Single, Y As Single)
    AsignarFichero Text3
End Sub

Ahora ya puedes "soltar" un fichero de texto en el formulario o el TextBox y se mostrará el contenido en ese TextBox.

Evento DragDrop y propiedad Drag

Ejemplo de cómo redimensionar y mover controles en tiempo de ejecución.

Ahora vamos a ver cómo mover controles por el formulario y soltarlos en la posición deseada. También vamos a ver cómo, mediante el uso de una llamada al API de Windows, podemos hacer que un control sea "redimensionable", la única pega para hacer que sea redimensionable, o si lo prefieres, la única condición, es que el control sea una "ventana", no te confundas, los controles en Visual Basic son controles, pero el Windows trata a algunos de ellos como si fuesen ventanas, por ejemplo el control TextBox es para Windows una ventana, sin embargo el control Label no lo es. Normalmente se puede saber si un control es "ventanero" si tiene la propiedad hWnd, ya que los que no son realmente una ventana, no tienen esa propiedad.

Veamos el código y las declaraciones para hacer que todo esto pueda funcionar.

Primero te explico que en cada control hay que hacer lo siguiente en los eventos MouseDown y DragDrop, salvo en el Form, como veremos después, ya que en el Form sólo se detectará la acción de soltar el control: