VB:TIMER-FRM

Private Sub Timer1_Timer()

Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 1 Then
   tiempo = 0
   'accion a realizar
   Unload Me
End If

End Sub


Private Sub cmdEleccion_Click()
If Val(Text1.Text) < 100 Then
frmCoche.Show
MsgBox "Comprate un coche"
Else
frmmoto.Show
MsgBox "Comprate una moto"
End If
End Sub