Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        trd = New Thread(AddressOf PROVA)
        trd.IsBackground = True
        AddHandler mdlFiltri.Counting, AddressOf CC
        trd.Start()

    End Sub

    Private Sub CC(ByVal i As Integer)
        Dim d As New DelAggiornaTesto(AddressOf AggiornaTesto)
        TextBox1.Invoke(d, i)
    End Sub

    Private Delegate Sub DelAggiornaTesto(ByVal i As Integer)
    Sub AggiornaTesto(ByVal i As Integer)
        TextBox1.Text = i
    End Sub