Visual Basic - Cierre automático de formulario

Hola y gracias desde ya. Necesito saber como hacer que un formulario (de presentación), se cierre automaticamente después de 5 segundos por ejemplo. Trabajo en Visual Basic 6.0.

Private Sub Form_Activate()
pausa 'activamos la funcion pausa
End Sub

Private Sub pausa()
Dim comenzar
Dim controlar
comenzar = Timer
Do Until controlar >= comenzar + 5
controlar = Timer
DoEvents
Loop
End
End Sub

colocale un control timer al formulario splash
en la propiedad interval del timer1 colocale 5000
despues en proyectos inicia con el formsplash

private sub timer1_timer()
unload formsplash
form1.show
end sub