次のコードを使用して時差を計算しています。HH:MM:SSではなく秒単位で表示したいのでアドバイスしてください。
Dim myTime = DateTime.Parse("15:40:00 PM")
Dim vrNowTime = DateTime.Parse(TimeOfDay)
Dim result = vrNowTime - myTime
Label1.Text = vrNowTime & " " & myTime
MsgBox(result.ToString)
ありがとう