>>In the SetValue() method you have:
>>
>>lnPercent = Int(tnValue/this.nMax * 100)
>>lnWidth = Int(lnPercent/100 * this.Width) - 2
>>this.shpBar.Width = lnWidth
>>
>>If you instantiate the progress bar with nMin=1 and nMax=149 (for the number of records in a table), there will be an error message 'The width property evaluated to an illegal number'. The thing is:
>>
>>lnPercent = Int(1/149*100) = 0
>>lnWidth = Int(0/100*0) - 2 = -2
>>
>>Maybe someone else already pointed this out. Or am I misinterpreting the use of nMin and nMax? In this example, I need to instantiate with nMin=1 and nMax=100 and process the Value passed outside the class.
>
>With use of max, min :
>

>thisform.OLEProgbar.min = 0
>thisform.OLEProgbar.max = reccount()
>scan
> * Do something
> thisform.OLEProgbar.value = recno()
>endscan
>

>W/o touching min, max (default 0 and 100)
>

>scan
> * Do something
> thisform.OLEProgbar.value = int(recno()*100/reccount())
>endscan
>

>Pls notice considered use w/o index tag.
>Cetin
Sorry, ignore this. I didn't notice it was about a special vcx and intended to be sent to Michael.
Cetin