>I am not good yet when dealing with objects
>
>I copied the classes to my folder and then tried
>the simple exemple below
>
>******************************************************
>
>If Not Pemstatus(_Screen,"StatusBar", 5) Then
>
> _Screen.Newobject("StatusBar", "ctl32_statusbar", "ctl32_statusbar.vcx")
>
>Endif
>
>
>oStatusBar.ProgressBar.Repeat = .T.
>
>oStatusBar.ProgressBar.Play = .T.
>
>oStatusBar.ProgressBar.Visible = .T.
>
>
>************************************************************
>
>I have the message:
>
>oStatusBar object not found
>
>Which is the object ? what is missing ?


You added the object to _screen container so you must reference it there:

If Not Pemstatus(_Screen,"StatusBar", 5) Then

_Screen.Newobject("StatusBar", "ctl32_statusbar", "ctl32_statusbar.vcx")

Endif


_Screen.StatusBar.ProgressBar.Repeat = .T.

_Screen.StatusBar.ProgressBar.Play = .T.

_Screen.StatusBar.ProgressBar.Visible = .T.