Ciao non c'è bisogno di chiedere ogni volta all'oracolo visto che siamo programmatori, altrimenti non si impara nulla... prendetelo come consiglio da parte di uno che programma da quando vb.net non esisteva.
Puoi approciare sia con l'oggetto Timer, oppure facendola più sporca con lo sleep del thread di un secondo.
Ti imposto il codice con l'oggetto timer:
Dim fineConteggio As Date
Private Sub StartTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartTimer.Click
Dim durata As TimeSpan = New TimeSpan(0, 1, 0) 'un minuto ma lo setti a tuo piacimento
fineConteggio = Now.Add(durata)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim tempoRimanente As TimeSpan = fineConteggio.Subtract(Now)
tempoRimanente = New TimeSpan(tempoRimanente.Hours, tempoRimanente.Minutes, tempoRimanente.Seconds)
If tempoRimanente.TotalSeconds <= 0 Then
Timer1.Enabled = False
End If
'qui visualizzi il valore di tempoRimanente, puoi metterci una label, una textbox, ecc
'....
'...
End Sub
Ovviamente sistema il codice a tuo piacimento e debuggalo, l'ho scritto al volo senza provarlo.