CountDown Timer Label

Code Snippet

Dim CountDownAsInteger = 0

Dim TimeSelectionAsLong

PrivateSub AutoCopyTimer_Tick(ByVal senderAs System.Object,ByVal eAs System.EventArgs)Handles AutoCopyTimer.Tick

Dim TimeAsDouble = TimeSelection * 60

CountDown += 1

If CountDown = TimeThen

MsgBox("test")

'Call Copy Procedure

Else

TimerLabel.Text = Format(Time - CountDown,"HH:mm:ss")

EndIf

EndSub

PrivateSub AutoCopyTimerForm_Load(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesMyBase.Load

SetTimerMins()

'TimerLabel.Text = TimeSelection

AutoCopyTimer.Enabled =True

EndSub

PrivateSub SetTimerMins()

SelectCase mgmtoptdialog.AutoCopyInterval.Text

Case"Every 15 Minutes"

TimeSelection = 15

Case"Every 30 Minutes"

TimeSelection = 30

Case"Every 45 Minutes"

TimeSelection = 45

Case"Every 60 Minutes"

TimeSelection = 60

Case"Every 90 Minutes"

TimeSelection = 90

Case"Every 120 Minutes"

TimeSelection = 120

EndSelect

EndSub

I'm working on a countdown timer based on the selection of text from a combobox.

It work half way since when the ticking starts my label displays hh:mms and I cannot see the countdown.

What am I doing wrong?

I thought I had it.

[5136 byte] By [wayliff] at [2008-1-3]

Visual Basic Hot Topic