' The Progress bar is named ProgressBar1; also label (lblProgress) present
If progress_count = 40000 Then progress_count = 1' Causes the progress bar to loop
' Knowing the Max value is ideal, however not always possible
With ProgressBar1
    .Min = 0
    .Max = 40000
    .Value = progress_count
End With

' A Label could be established separately

If dircount = -1 Then
    lblProgress.Caption = "No directories scanned!"
    lblProgress2.Caption = "Verify correct drive letter."
Else
    lblProgress.Caption = Str(dircount) & " Directories Scanned!"
End If