Class MainClass
Public Shared Sub Main()
Dim date1 As New System.DateTime(2010, 6, 3, 22, 15, 0)
Dim date2 As New System.DateTime(2010, 12, 6, 13, 2, 0)
Dim date3 As New System.DateTime(2010, 10, 12, 8, 42, 0)
Dim diff1 As System.TimeSpan
diff1 = date2.Subtract(date1)
Dim diff2 As System.TimeSpan
diff2 = System.DateTime.op_Subtraction(date2, date3)
Dim date5 As System.DateTime
date5 = System.DateTime.op_Subtraction(date1, diff2)
End Sub
End Class