Sub Button1_Click
Dim PerDiff As Period
Dim StartHrs, StartMin, EndHrs, EndMin As Int
StartHrs = edtStartHrs.Text
StartMin = edtStartMin.Text
EndHrs = edtEndHrs.Text
EndMin = edtEndMin.Text
Dim TimeA As Long = DateUtils.SetDateAndTime(2020, 10, 10, StartHrs, StartMin, 0)
Dim TimeB As Long = DateUtils.SetDateAndTime(2020, 10, 10, EndHrs, EndMin, 0)
PerDiff = DateUtils.PeriodBetween(TimeA, TimeB)
lblAnswer.Text = PerDiff.Hours & ":" & PerDiff.Minutes
End Sub