Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Time2.TextChanged, Txt_Time1.TextChanged
On Error Resume Next
Dim dt As String
dt = DateDiff(DateInterval.Minute, CDate(Txt_Time1.Text), CDate(Txt_Time2.Text), FirstDayOfWeek.Friday)
Dim d = TimeSpan.FromMinutes(dt)
Label1.Text = d.ToString
End Sub