Simple Progress Bar

Question

I am trying to implement sa simple progress bar for my program. It just uploads one file. I have searched and tried other methods posted here but I can't make them work.

Here's my code

Class FTPUpload

    Public Shared Sub ftpUpload()
        Dim ftp As New FTPConnection()
        ftp.ServerAddress = Main.tbFtpServer.Text
        ftp.UserName = Main.tbUsername.Text
        ftp.Password = Main.tbPassword.Text
        ftp.Connect()
        ftp.UploadFile("C:\Users\Nexus\Desktop\compressed\backup.zip", "files\backup.zip")
        ftp.Close()
    End Sub

End Class

Progress bar is Main.pbUpload

Any help will be appreciated, thank you.