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 ?