Su una WindowsForm posizioniamo un componente di tipo DateTimePiker, una Label ed un Button.
vedi figura:


Nell'evento click del button andiamo a scrivere il segeuente codice:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim datafinale As DateTime = New DateTime
        datafinale = Me.DateTimePicker1.Value
        Dim differenza As TimeSpan = datafinale.Subtract(DateTime.Now)
        Dim giorni As Integer = differenza.Days
        Dim ore As Integer = differenza.Hours
        Dim minuti As Integer = differenza.Minutes
        Me.Label1.Text = giorni.ToString() & ":" & ore.ToString() & ":" & minuti.ToString()
    End Sub
End Class

Il gioco è fatto!