Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     
            Application.DoEvents()
            LBL_Stato.BeginInvoke(New InvokeDelegate(AddressOf AggiornaStatoDaServizio))
            Dim demoThread As Thread = Nothing
            demoThread = New Thread(New ThreadStart(AddressOf AggiornaStatoDaServizio))
            demoThread.Start()

    End Sub

    Public Sub AggiornaStatoDaServizio()
      
        LBL_Stato.BeginInvoke(New InvokeDelegate(AddressOf invokeMethod))
        ProgressBar1.BeginInvoke(New InvokeDelegate(AddressOf invokeMethod))
        Me.ProgressBar1.Value = s.GetStatoUpload(FTPguid)
      
    End Sub 

    Private Sub invokeMethod()
      
        Me.LBL_Stato.Text = My.Resources._FRM_EsportazioneDati.Aggiornamentotabella & ObjExport.NomeTabella & My.Resources._FRM_EsportazioneDati.record & ObjExport.IndexArrivato & My.Resources._FRM_EsportazioneDati.di & ObjExport.NumRecordTabella

    End Sub