Mensajes

Es lo mismo pero de otra manera.

Código [Seleccionar] Expandir

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Creo que vienen con VB6.

Tiene buena interfaz grafica? por que tiene buena pinta, gracias soplo iba ha empezar a buscar algo asi y me has ahorrado trabajo.

Si con lo que te he puesto no te aclaras 
Solo era para que vieses el valor que toma Shift con algunas combinaciones.

Prueba esto y nos cuentas..

Código [Seleccionar] Expandir

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Shift = 1 And KeyCode = 13 Then Debug.Print "Shift"
If Shift = 2 And KeyCode = 13 Then Debug.Print "Ctrl"
If Shift = 4 And KeyCode = 13 Then Debug.Print "Alt"
If Shift = 6 And KeyCode = 13 Then Debug.Print "Alt Gr"

End Sub

[Form3.SockServer]

Form3.SockServer pero ahi solo lo llamas. Prueba esto y veras como hace lo mismo.
Form3.Text1

Aunque tengas el "componente" tendras que mandarle algo, no?

Que yo sepa no se puede alinear el texto por los dos lados  pero puedes controlar la longitud del texto.

La solución la tienes con un timer.
Interval :1000ms = 1s

Usa el buscador del foro, eso se ha repetido varias veces.

Me suena haber visto ese code

Efectivamente... y si no quieres perder el dato 2 lo guardas en una variable auxiliar antes de hacer la operacion.