Optimization

[moeur]

I used the high-resolution performance counter to time these methods. The fastest method at 61ms is

'*** 61ms
Dim numOfBooks As Long, numOfBooksDivided As Long
Dim perc As Long
 
numOfBooks = UBound(allBooks, 2)
numOfBooksDivided = numOfBooks / 100
 
For x = 0 To numOfBooks
    'Don't use this one, it takes 90ms
    'perc = Round((x + 1) / numOfBooksDivided)
    perc = (x + 1) \ numOfBooksDivided
    fraProgress.Caption = "Progress - " & perc & "%"
Next

The next method took 74ms

'*** 74ms
Dim numOfBooks As Long, numOfBooksDivided As Double
    Dim perc As Double
 
    numOfBooks = UBound(allBooks, 2)
    numOfBooksDivided = 100 / numOfBooks
 
    For x = 0 To numOfBooks
        fraProgress.Caption = "Progress - " & CStr(CLng(perc)) & "%"
        perc = perc + numOfBooksDivided
    Next

Here is a post on how to use the high-resolution performance counter
http://www.vbforums.com/showthread.p...18#post2033918