What is the best way to set the max for a progess bar and also the value for it. I need to show the progress for searching directories and finding matched files according to the searching criteria. Sample code:

For counter = 1 To lngDriveLen Step 4
List1.AddItem (Mid(txtDriveName, counter, 3))
ProgressBar1.Value = counter
Next counter

HELP!!!