[VB.NET] Confronto ora e refresh

[19pantarei75]

Ciao a tutti.
Ho un problema.

Vorrei confrontare un orario di scadenza con quello di sistema.
L'orario di sistema lo vorrei fare stampare in una textbox dinamicamente.
Ovvero ogni volta che passa un minuta si refrescia.
Appena la differenza tra quello di scadenza e quello di sistema è zero, mi compare una msgbox

funziona cosi cosi.

La textbox Non si refrescia ogni volta che cambia l'orario. Come posso fare?

 Dim i, l As String
        Dim Minuti As String
        Dim scadenza As String
        Dim OraDiAdesso As String
        Dim DifferenzaMinuti As Long
        Dim Risultato As Single


        scadenza = "17.48"

        i = Now.Hour
        l = Now.Minute

        If l > 0 And l < 10 Then
            Minuti = "0" & l
        Else
            Minuti = l
        End If

        Me.txtOra.Text = i & "." & Minuti

        OraDiAdesso = Me.txtOra.Text

        DifferenzaMinuti = DateDiff("n", CDate(scadenza), CDate(OraDiAdesso))

        Risultato = CSng(DifferenzaMinuti / 60&)

        If Risultato = 0 Then
            MsgBox("è andata")
        Else
            Me.txtOra.Refresh()



        End If

    End Sub

[Il Totem]

Usa un timer con Intervall di circa 60'000 (60 secondi, anche se ci impiegherà un po' di meno, dipende dal computer): al tick aggiorni la textbox e controlli.

'Scadenza è memorizzata in un valore Date
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  TextBox1.Text = Date.Now.ToShortTimeString
  'Se l'ora corrente e la scadenza differiscono per meno di 60 secondi
  If (Scadenza - Date.Now).TotalSeconds <= 60 Then
    'Visualizza il messaggio
    MessageBox.Show("Messaggio", "Titolo", ...)
  End If
End Sub