I want to put a progress bar in my project to show when files have copied over. I've been looking through previous posts but still don't really understand how to use them. Could someone please put me in the right direction.

Here is my code that copies the files. I've added the progress bar to my form. I just don't know how to use it.

Thanks for any help
JK

Code:
Public Sub CopyTheFiles()
    Dim FSO As Object
    On Error GoTo NOFSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    FSO.CopyFile "D:\Folder1\*.ack", MyNewDir, True
    FSO.CopyFile "D:\Folder2\*.dec", MyNewDir2, True
    FSO.CopyFile "D:\Folder3\*.gen", MyNewDir3, True
    FSO.CopyFile "D:\Folder4\*.out", MyNewDir3, True
    FSO.CopyFile "D:\Folder5\*.tan", MyNewDir4, True
    FSO.CopyFile "D:\Folder6\*.Rtrg", MyNewDir5, True
    MsgBox "The files have been Successfully Copied over”
    
    Set FSO = Nothing
    Exit Sub
NOFSO:
    MsgBox "FSO CreateObject Failed, Copying of files"
End Sub