Can some one tell me how i can add a progressbar to my project. Because right know i am using a animation picture. the progressbar i want to add has labels that tells how long it will take to finish and elapsed time.
lee123
lee123
Private Sub cmdCopy_Click() On Error Resume Next Animation1.Open "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos\filecopy.avi" Animation1.Play Dim fso As New Scripting.FileSystemObject Dim fld As Folder Set fld = fso.GetFolder(txtSourceOfFolder) fld.Copy (txtDestinationOfFile) Animation1.Stop Animation1.Visible = False MsgBox "Transfer Completed!", , "Transfer Is Completed" Me.Refresh cmdExit.Enabled = True txtSourceOfFolder.Text = "" txtDestinationOfFile.Text = "" txtNameOfFolder.SetFocus End Sub
For P = 1 to 100
Progressbar1.value = P
For x = 1 to 100
Next x
Next P
Comment