VB6: TEMPORIZADOR

Private Sub Timer2_Timer()
Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 2 Then
   tiempo = 0
   'accion a realizar
   Unload Me
End If
End Sub