salu2

como puedo agregarle un progressbar usando este codigo:


Private Sub Command1_Click()
With CD
.DialogTitle = "Load IDs"
.FileName = ""
.Filter = "Text Files(*.txt)|*.txt"
.ShowOpen
End With

If Not Len(CD.FileName) <= 0 Then: ListLoader CD.FileName, List1

Text6 = List1.ListCount & "/" & List1.ListIndex + 1

End Sub