Buenas

Como puedo hacer para que al ejecutar la aplicacion,se cierre en segundos

E agregado un Timer al formulario y e puesto esto:

Option Explicit
Const INTERVALO_EN_SEGUNDOS As Integer = 2
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static Temp_Seg As Long
Temp_Seg = Temp_Seg + 1
If (Temp_Seg * 2) >= (INTERVALO_EN_SEGUNDOS * 2) * 2 Then
Temp_Seg = 0
End If
End Sub

Pero no se cierra,alguna idea?

saludos

simple mente al timer coloca lo siguiente
y en el form load lo activas, debes elejir el intervalo
Salu2....

Gracias por la ayuda,pero esque no tengo ni idea

Pongo el Timer,le cliceo y le pongo:

Private sub timer1()
End
End Sub

Y en el form pongo:

Private Sub Form_Load
Timer1.Interval = 1000
Timer1.enable = true
end sub

Y como lo activo y pongo los segundos?

Bro....Te recomiendo mires los tutos de xa0s y aprendas las propiedades de cada uno de los objectos de VB6...las propiedades del Timer son las mas faciles de entender(a mi parecer) o traduce sus propiedades....¿sabes cuales son las propiedades?
Salu2......

No se cuales son la propiedades,voy a verlo

Le e quitado :
Timer1.enable = true

Y funciona,se a quedado asi:

Private Sub Timer1_Timer()
End
End Sub
Private Sub Form_Load()
Timer1.Interval = 2000
End Sub

Gracias macho

Pero le e añadido una imagen al formulario y al compilarlo me salta este error:

Memoria insuficiente

¿?

Se estaba rayando el VB6

(Solucionado)