Very nice, thanks a lot.

>VFP won't show the progress bar unless it determines it's needed.
>
>BTW, wouldn't you prefer to type this...
>
>

m.loThermo = NewObject("cusSQLThermo","cusSQLThermo.VCX")
>			lnAccounts = m.poProcess.GetAccounts(m.lcQueue_Name_From, ;
>				m.goApp.cDept, m.lcWhere, ;
>				.cAdditionalJoin, m.ldStartDate, m.lnUsers * .txtAccountsPerUser.value)
>RELEASE m.loThermo

>
>INSTEAD of all of this?
>
>

lcNotify = set('notify')
>			set notify on
>			set talk on
>			set talk window
>			lnAccounts = m.poProcess.GetAccounts(m.lcQueue_Name_From, ;
>				m.goApp.cDept, m.lcWhere, ;
>				.cAdditionalJoin, m.ldStartDate, m.lnUsers * .txtAccountsPerUser.value)
>
>			if m.lcNotify = 'OFF'
>				set notify off
>			endif
>			set talk off

>
>If so, try this class...
>
>http://foxridgesoftware.com/Blogs/tabid/84/EntryID/2/Default.aspx