Tjena alla!!

Har gjort ett litet VB-program. Men har kört fast lite.
Det enda mitt program ska göra är att kolla några inställningar i en ini.fil och sedan starta ett annat program efter en viss tid.

Programmet visar i ett formulär vad det håller på med. Alltså...typ "Kontrollerar ini-fil..." "Startar program..." osv.

Nu skulle jag vilja visa tiden som kvarstår innan själva programmet startar...typ en nedräkningsgrej.
10..9..8..7.. osv Hur får man till en sådan på enklast sätt?

Mvh
Magnus

Såhär kanske:

<code>
Dim lngCounter As Long
Private Sub Command1_Click()
'Starta nedräkningen
lngCounter = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lngCounter = lngCounter + 1
If lngCounter = 10 Then
'Starta programmet här
Timer1.Enabled = False
End If
Label1.Caption = 10 - lngCounter 'Visa hur lång tid det är kvar
End Sub
</code>

du kan ju ta bort ingcounter saken och bara ta label1 = label1 - 1

<code>
Private mTimeOut as Date

Private Sub Command1_Click()
'Starta nedräkningen
mTimeOut = DateAdd("s", 10, Now())
Timer1.Interval = 200
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Dim Remaining As Date
If Now() >= mTimeOut Then
Timer1.Enabled = False
Label1.Caption = "0"

'Starta programmet här
Msgbox "Kör program eller nåt..."
Else
Remaining = mTimeOut - Now()

'Visa hur lång tid det är kvar
Label1.Caption = Second(Remaining)
End If
End Sub
</code>