Como hacer errores?

[BlazeFire]

Bueno primero que nada Hola a todos, soy nuevo aqui y espero no tener que molestaros muchas veces xD.

Bueno mi duda es la siguiente:

Yo tengo un Formulario creado en el Visual Basic 2008 en el Cual Hay Tres TextBox y Dos Buttons, lo que quiero hacer es esto.

En el primer TextBox hay que introducir un Correo, lo que quiero es que si el usuario no introduce el correo y apreta el Boton "Enviar" Aparezca un Error diciendo Por Favor introduzca su direccion de correo electronico. "Ya lo Solucione"

Bueno eso es una parte la otra es, Yo puedo borrar un Control Timer con Comandos?
es que Tengo Tres Control Timers, De los cual uso los 3 pero quiero que despues de un intervalo de tiempo exactamente "10920" Milisegundos Se Borre 1 Control Timer, Yo hasta Ahora lo Resolvi de esta manera.

Uno de los 3 Control Timers Llama a un Label y lo pone encima del objeto que utiliza el control timer a "Borrar", Pero quiero una manera menos "Chapuzera o Caimana" de lograrlo. "Ya lo Resolvi"

Ahora Tengo una duda Nueva.

tengo 5 labels de texto y 1 textbox y quiero hacer esto.
Al dar click a algunos de los labels de texto este se copie y pege en el textbox en este caso el "TextBox1", Explico todo en detalles.

Estoy Haciendo una Aplicacion de E-Mails En el TextBox1 Se introduce el Correo y Los 5 Labels que os dije arriba contienen estos datos: @hotmail. @gmail...,@live..., @yahoo..., @msn...-
Entonces lo que quiero es que el usuario al dar click en uno de esos 5 Labels este se copie automaticamente en el TextBox1 "Copiarse, No Borrarse y copiarse"

Gracias espero su Ayuda...!!!

[Programmer]

Pega, en el evento click de cada label el codigo Text1.Text = Text1.Text & LabelX.Caption donde X es el numero que se le agrega automaticamente a cada label, suponiendo que no los has renombrado, esto quedaria mas o menos asi.

Código:

Private Sub Label1_Click()
  Text1.Text = Text1.Text & Label1.Caption
End Sub

Tecnicamente seria similar para los demas labels, y bueno, si usas una matriz de labels pues solo sera necesario un evento click para todos los labels de la matriz, bastando solo algo como

Código:

Private Sub Label1_Click(Index As Integer)
  Text1.Text = Text1.Text & Label1(Index).Caption
End Sub

Saludos.

[David]

Bienvenido al foro.

Tema transladado desde la sección de Visual Basic Clásico.

Saludos.

[BlazeFire]

Gracias Programmer

El Codigo me Funciono perfectamente como guia

"Label"

TextBox1.Paste = "aqui va el texto del label"

Bueno asi fue que lo logre Resolver xD