En progressbar, som visar tiden i VB 2012?

Har nån ett bra exempel eller råd hur man skapar en progressbar som visar hur mycket tid det är kvar innan alla filer är kopierade från ett ställe till ett annat ställe med Visual Basic 2012?

11

Problem med Timer funktionen i Visual Basic!

Timer funktionen fungerar inte med denna kod, fast allt verkar vara ok enligt mig. Är det nån, som ser något fel i koden?

      If CheckDir = True Then
            Timer1.Enabled = True
            Timer1.Start()
            LabelText.Text = "Bilderna kopieras, vänt en stund!"
            ButtonCopy.Enabled = False
            MkDir(Namedir)

            My.Computer.FileSystem.CopyDirectory("W:\DCIM\100OLYMP", Namedir, True)
            LabelText.Text = "Bilderna har kopierats."
            ButtonCopy.Enabled = True
            CheckStripMenuItem1.Enabled = True
            Timer1.Stop()
            Timer1.Enabled = False
            If TimeCount2 >= 1 Then
                LabelText4.Text = "Utförandet tog " + TimeCount.ToString + " sekunder."
            Else
                LabelText4.Text = "Utförandet tog " + TimeCount2.ToString + " minut(er) " + TimeCount.ToString + " sekunder."
            End If
            ProgressBarShow.Value = 0
        End If