Сколько осталось времени

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim Dt_Now As DateTime = Now
        Dim Dt_stop As DateTime = "#" & Now.Day & "." & Now.Month & "." & Now.Year & " 10:00:00#"
        Dim ResultTime As TimeSpan = Dt_stop - Dt_Now
        Label1.Text = ResultTime.Hours & ":" & ResultTime.Minutes & ":" & ResultTime.Seconds
    End Sub
End Class

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace WindowsFormsAppTimer
    Public Class Form1
        Inherits Form
 
        Private mStart As DateTime
 
        Private mStop As DateTime
 
        Private components As IContainer = Nothing
 
        Private timer1 As Timer
 
        Private label1 As Label
 
        Public Sub New()
            Me.InitializeComponent()
            Me.mStart = New DateTime(2018, 8, 9, 8, 25, 0)
            Me.mStop = New DateTime(2018, 8, 9, 13, 0, 0)
        End Sub
 
        Private Sub timer1_Tick(sender As Object, e As EventArgs)
            Dim ts As TimeSpan = Me.mStop - DateTime.Now
            Me.label1.Text = String.Format("{0:dd\.hh\:mm\:ss}", ts)
        End Sub
 
        Protected Overrides Sub Dispose(disposing As Boolean)
            Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
            If flag Then
                Me.components.Dispose()
            End If
            MyBase.Dispose(disposing)
        End Sub
 
        Private Sub InitializeComponent()
            Me.components = New Container()
            Me.timer1 = New Timer(Me.components)
            Me.label1 = New Label()
            MyBase.SuspendLayout()
            Me.timer1.Enabled = True
            AddHandler Me.timer1.Tick, AddressOf Me.timer1_Tick
            Me.label1.AutoSize = True
            Me.label1.Location = New Point(13, 13)
            Me.label1.Name = "label1"
            Me.label1.Size = New Size(35, 13)
            Me.label1.TabIndex = 0
            Me.label1.Text = "label1"
            MyBase.AutoScaleDimensions = New SizeF(6F, 13F)
            MyBase.AutoScaleMode = AutoScaleMode.Font
            MyBase.ClientSize = New Size(800, 450)
            MyBase.Controls.Add(Me.label1)
            MyBase.Name = "Form1"
            Me.Text = "Form1"
            MyBase.ResumeLayout(False)
            MyBase.PerformLayout()
        End Sub
    End Class
End Namespace

Public Class Form1
 
    Dim mStart As DateTime = New DateTime(Now.Year, Now.Month, Now.Day, Now.Hour, Now.Minute, Now.Second)
    Dim mStop As DateTime = New DateTime(Now.Year, Now.Month, Now.Day, 14, 0, 0)
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim ts As TimeSpan = Me.mStop - DateTime.Now
        Me.Label1.Text = String.Format("{0:hh\:mm\:ss}", ts)
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class