Why does this happen - Folder Copy. -

Hello i am trying to copy a Folder/directory to another Folder/directory, my old code works ok but i am trying to put a Progressbar, in with the new code, it will copy Small Folders ok most of the time(1 or 2 sub folders) but larger ones with this Code just seem to be trying to copy over and over again between 2 and more than 20 times over till it stops, does anyone know, why this happens. Have tried lots of things but cannot get it to work.
Code below. Thanks for any help.

Private Sub CmdCopyFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCopyFolders.Click
'Folder Copy Command Button.

Form2.Show()
Form2.ListView1.Items.Clear()
Form2.Label1.Text = ""
Form2.Focus()

Dim path1 As String
path1 = TextSourceMulti.Text
Dim path2 As String
path2 = TextDestin.Text

Dim showUI As FileIO.UIOption = FileIO.UIOption.AllDialogs 'Seems not to be needed?.

'On Error Resume Next - Using Try instead.
Me.CmdCopyFolders.Enabled = False

If Me.ChkCopyFolders.CheckState = CheckState.Checked = True Then GoTo CopyFolder

CopyFolder:
'Should ask to OverWrite Files or Cancel etc.

'If Me.ChkOverWrite.CheckState = CheckState.Checked = True Then GoTo OverWriteFolder


Dim foldercopy As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = _
My.Computer.FileSystem.GetDirectories(path1, FileIO.SearchOption.SearchAllSubDirectories)

'Try

'If My.Computer.FileSystem.DirectoryExists(TextSourceMulti.Text) Then

'ProgressBar1.Show() ' not using at moment
'ProgressBar1.Maximum = foldercopy.Count
' ProgressBar1.Value = 0
' ProgressBar1.Minimum = 0

For Each folder As String In foldercopy
AddCopyProgress("Copying Directory", path1, "To", path2)
My.Computer.FileSystem.CopyDirectory(path1, path2, showUI:=FileIO.UIOption.AllDialogs)

ProgressBar1.Value += 1
'ProgressBar1.Step = 1

'Application.DoEvents()

'folder


Next
ProgressBar1.Hide()
'End If

'Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Information)
'End Try

Form2.Label1.Text = Form2.ListView1.Items.Count.ToString()
Me.CmdCopyFolders.Enabled = True

Exit Sub