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?

codice:
 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