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

Con porcentaje,
List1.ListIndex, lo multiplicas por 100 y luego lo divides con List1.ListCount,
Esto te da el value para el progress bar
Cuidado con los valores al limite..

__________________
---------------------
Ácido, pero vitamínico.

Maipú- Chile