اتفضل اخي جرب الكود ده وقولي النتيجة
كود :
Dim D1 As DateTime
Dim D2 As DateTime
Dim TS As New TimeSpan()
D1 = DateTimePicker1.Value.ToString
D2 = DateTimePicker2.Value.ToString
TS = D1 - D2
Me.TextBox1.Text = TS.ToString