GUYS, CAN YOU HELP ME WITH THIS?

I WANT TO ADD PROGRESSBAR WHEN COPYING FILES USING THIS CODE..

Dim MyDate As String
Dim MyTime As String
MyDate = Format(Date, "mmm d yyyy")
MyTime = Format(Time, "h mm")
Debug.Print MyDate
Debug.Print MyTime

FileCopy App.path & "/TEST.mdb", App.path & "/bak/TEST " & MyDate & ", " & MyTime & " .bak"