Eric,

something like this

_Therm is a class and has a method Update()

use SomeTable
t = therm(reccount(), 'Processing..')
n = 0
scan all
    n = n + 1
    =t.Update()
endscan
release t

*-------------
function	Therm(maxCount, Msg, MaxSeconds)
	return	CreateObject('_Therm', MaxCount, Msg, MaxSeconds)
endfunc
*---------------------------------------------------------------------------

>Hi,
>
>I know how to create a simple progressbar using two shapes...
>
>However, I now want to put the progressbar in a class and access it in my appliction.
>
>I want to make default functions for it (i.e. acct_therm, upd_therm)... But how can I keep the object handle without making it a public property on my application object?
>
>Also, I don't want to create a public variable which holds the object handle.
>
>I would like to use anywhere i my app easy codes, like
>DO ACCT_THERM WITH "test1"
>or
>ACCT_THERM("test1")
>This activate the progressbar en sets the caption to "test1"
>
>and also
>DO UPD_THERM WITH 27
>or
>UPD_THERM(27)
>This updates the progressbar setting it on 27 percent
>
>How can I make functions/procedures public available (in two variants) without using an #include syntax and how to store the object handle??
>
>Can anyone help?
>
>Erik