Visual Basic - timer

tengo un problema tngo k hacer una pantalla d presentacion y necesito q cuando alcance x segundos desaparezca y m muestre otro form, lo toy haciendo con el objeto timer, pero no m sale, alguien me puede ayudar?

private sub form _load()
Timer1.Enabled=true
end sub
Private sub timer1_timer()
dim i as integer

i=i+1
if i=5000 then 'Son 5 segundos
nombreformularioalquellamas.show
unload me
end if
end sub

O tb puedes poner en las propiedades dl timer1 en Interval 5000
y luego este codigo en el timer:
nombreformularioalquellamas.show
unload me