Cristian
24 de Febrero del 2004

como hago para que despues de 10 segundos desaparasca mi formulario

sans2001
24 de Febrero del 2004

Hola Cristian

Pon un objeto timer en tu formulario, cambia la propiedad Interval y ponle un valor de 1000 (es lo que se estima el tiempo de un segundo), y despu茅s puedes usar el siguiente c贸digo, te recomiendo lo analices y apliques seg煤n tu necesidad.

Dim Tiempo

Private Sub Form_Load()
Tiempo=0
Timer1.Enable = True
End Sub

Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
If Tiempo = 10 Then
Unload Me
Exit Sub
end if
End Sub

Con la variable Tiempo, inicias un conteo donde el objeto Timer1 incrementara en uno cada segundo, al llegar a los 10 segundos el mismo objeto Timer aplicar谩 la condici贸n dentro del If.
Ahora bien, yo te lo puse para que despu茅s de cargar tu formulario comience el conteo, pero si deseas que este conteo comience despu茅s, con alguna otra acci贸n, por ejemplo al oprimir un CommandButton, entonces en este control es donde deberas poner la instrucci贸n que pone a True al Control Timer.

Espero haberte ayudado, cualquier duda que tengas escribeme.

Saludos desde la Ciudad de M茅xico.

Jaime Ayala

Cristian
24 de Febrero del 2004

gracias