Como retornar a diferença de dias entre duas datas

'Este exemplo mostra como obter a diferença de dias
'entre duas datas

Module Module1
  Sub Main()
    Dim inicio As New DateTime(2007, 5, 1) 'ano, mês, dia
    Dim fim As New DateTime(2007, 5, 20) 'ano, mês, dia
    Dim dif As TimeSpan = fim.Subtract(inicio)
    Dim dias As Integer = dif.Days

    'exibe a diferença em dias
    Console.WriteLine("A diferença é de: " & dias & " dias")

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module