Public Class Dtime

    Private Sub Dtime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timeone.Text = Now
        Me.Tim.Enabled = True
        Me.Tim.Interval = 1000
    End Sub
    Private Sub Tim_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tim.Tick
        Me.Timetwo.Text = Now
    End Sub

    Private Sub BouEnt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BouEnt.Click
        Me.Tim.Enabled = False
        Me.Label2.Text = Me.Timeone.Text - Me.Timetwo.Text
    End Sub
End Class