Private Sub tmrwait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrwait.Tick
Dim remaining As TimeSpan = m_StopTime.Subtract(Now)
remaining = New TimeSpan(remaining.Hours, remaining.Minutes, remaining.Seconds)
If remaining.TotalSeconds < 0 Then remaining = TimeSpan.Zero
lblRemaining.Text = remaining.ToString
If remaining.TotalSeconds <= 0 Then
[b]MsgBox("Times Up!")[/b]
tmrwait.Enabled = False
End If
End Sub
This post has been edited by AdamSpeight2008: 05 August 2009 - 03:36 PM

New Topic/Question
Reply




MultiQuote





|