' funzione per ottenere la dimensione del file
    Private Function GetFileSize(ByVal MyFilePath As String) As Long
        Dim MyFile As New FileInfo(MyFilePath)
        Dim FileSize As Long = MyFile.Length
        Return FileSize
    End Function

    Private Sub startButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startButton.Click

        If File.Exists("J:\SetupTeam2010.exe") Then
            Me.Timer4.Start()
            File.Delete("J:\SetupTeam2010.exe")
            File.Copy("C:\SetupTeam2010.exe", "J:\SetupTeam2010.exe")
            Me.Timer4.Stop()
            Me.Timer4.Enabled = True
            MsgBox("Ok")
        Else
            Me.Timer4.Start()
            File.Copy("C:\SetupTeam2010.exe", "J:\SetupTeam2010.exe")

            Me.Timer4.Stop()
            Me.Timer4.Enabled = True
            MsgBox("Ok")
        End If
    End Sub
  
    Private total As Long = GetFileSize("C:\SetupTeam2010.exe")
   
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Try
            Dim lenghtStart As Long = GetFileSize("J:\SetupTeam2010.exe")

            Dim lenght As Long = GetFileSize("J:\SetupTeam2010.exe") - GetFileSize("C:\SetupTeam2010.exe")

            Me.tempoRimastoLabel.Text = lenght

            If lenght = total Then
                Me.Timer4.Stop()
                Me.Timer4.Enabled = True
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub