Αντίστροφη μέτρηση σε VB 2010

[cris4524]

Καλησπέρα σε όλους!

βασικά αυτό το πρόγραμμα κάνει αυτόματα τερματησμό/επανεκκίνηση/αδρανοποίηση του H/Y στην ώρα που θά βάλεις στο textbox.
Και ήθελά να προσθέσω και ένα label σε αυτόν τον κώδικα που να κάνει αντίστροφη μέτρηση για τερματησμό/επανεκκίνηση/αδρανοποίηση του H/Y από την ώρα που κάνεις το κλίκ .

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Time.Text = Format(TimeOfDay)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsDate(TextBox1.Text) = False Then
            MsgBox("Λάθος ώρα!!!")
        End If

        If ShutDown.Checked = False And Restart.Checked = False And Sleep.Checked = False Then
            MsgBox("Επιλέξτε μία επιλογή!")
        Else
            Timer2.Enabled = True
            TextBox1.Enabled = False
            Button2.Enabled = True
            Button1.Enabled = False
        End If
        Refresh()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer2.Enabled = False
        TextBox1.Text = "00:00:00"
        TextBox1.Enabled = True
        Button1.Enabled = True
        Button2.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If TextBox1.Text = Time.Text Then
            If ShutDown.Checked = True Then
                Shell("ShutDown -s")
            ElseIf Restart.Checked = True Then
                Shell("ShutDown -r")
            ElseIf Sleep.Checked = True Then
                Shell("ShutDown -h")
                Timer2.Enabled = False
                TextBox1.Text = "00:00:00"
                TextBox1.Enabled = True
                Button1.Enabled = True
                Button2.Enabled = False
                Sleep.Checked = False
            End If
        End If

    End Sub
End Class

Ευχαριστώ!

[ZORO]

Μέσα στην διαδικασία του timer παίρνε την ώρα συστήματος, βρες την διαφορά από την ώρα που έχεις εισάγει, και το αποτέλεσμα αυτό βάλτο ως caption σε κάποιο label.
Επείδη όλο αυτό θα είναι μέσα στο timer το απότελεσμα και το caption του label θα αλλάζουν, και θα φαίνετε σαν αντίστροφη μέτρηση.

[cris4524]

Μέσα στην διαδικασία του timer παίρνε την ώρα συστήματος, βρες την διαφορά από την ώρα που έχεις εισάγει, και το αποτέλεσμα αυτό βάλτο ως caption σε κάποιο label.
Επείδη όλο αυτό θα είναι μέσα στο timer το απότελεσμα και το caption του label θα αλλάζουν, και θα φαίνετε σαν αντίστροφη μέτρηση.

Μήπως μπορείς να μου δώσεις ένα παράδειγμα με ένα κομμάτι κώδικα;(γιατί είμαι πρωτάρης ακόμα...)

Ευχαριστώ!

[cris4524]

Ρε παιδιά κανείς δεν έχει ιδέα από Visual Basic;;;

[cris4524]

Τελικά το βρήκα πως να κάνω αυτό που μου είπες!
Μήπως ξέρεις ώμος πως να είναι η αντίστροφη μέτρηση αυτής της μορφής hh:mm:ss;