FoxPro/Visual FoxPro - Crear Nuevo Codigo Clase StatusBar Personalizada

Que tal amigos :
Estoy entrampado y no consigo solucion con este tema...
Estoy tratando de crear en el _SCREEN un StatusBar personalizado pero
me da algunos errores entre ellos :
"LA CLASE DE OBJETO NO ES VALIDA PARA ESTE CONTENEDOR"

A continuacion les muestro el codigo del problema...

Local lnPanels

WITH _Screen
.Caption="SISGEN - Sistema General de Control de Pagos (Version
1.0)"
.WindowState=2 &&Maximizado
.Autocenter=.F.
.Top=0
.Left=0
.backcolor =RGB(192,192,0)
.visible=.T.
.ControlBox=.T.
.Closable=.T. && Quitar botones de control de ventana
.MaxButton=.T.
.MinButton=.T.
.Movable=.F.
.Fontname="tahoma"
.Fontsize=10
.FontBold=.F.
ENDWITH

**********************************
* Crea el objeto TOOLBAR *
**********************************

oToolBar=CREATEOBJECT("ToolBar")
* Le agrega el objeto StatusBar
oToolBar.addobject("oStatusBar",'StatusBarX')
oToolBar.Dock(3) &&Inferior
oToolBar.movable=.F.
oToolBar.sizable=.T.
oToolBar.visible=.t.
oToolBar.oStatusBar.visible=.t.

_SCREEN.AddObject("OCXTest","StatusBarX", "MSComctlLib.sBarCtrl.2")

With oStatusBar.OCXTest
.Panels(1).Text = "Ejemplo de Status Bar"
.Panels(1).ToolTipText = "Panel 1"
.Panels(1).Style = 0
.Panels(1).Width = 300

.Panels.Add()

.Panels(2).ToolTipText = "Mayusculas Siempre"
.Panels(2).Style = 1
.Panels(2).Width = 50

.Panels.Add()

.Panels(3).ToolTipText = "Bloque numerico"
.Panels(3).Style = 2
.Panels(3).Width = 50
Endwith

Define Class StatusBarX As OleControl
Visible = .T.
Height = 25
Enddefine

Amigos me urge solucionar este problema para poder seguir avanzando en
mi proyecto...

Agradezco sus comentarios y soluciones a este caso. Ya que no logro
concentrarme en la solucion

Saludos,

GABRIEL
(Lima-Perú)

Usando CTL32_status bar es mas facil.

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

Que tal Amigo Plinio :
Gracias por la linea de Ejemplo. Intente acoplar dicha clase a mi codigo pero no funciona me indica algunos errores...
Quize extraer de la clase la parte que me podria servir para generar mi codigo pero la verdad como no soy su creador y dado la logica que utiliza es dificil entender como funciona independiente mas aun que parte de un formulario en donde se indicara las opciones a visualizar en el StatusBar y no funciona de forma predeterminada.

Me puse en contacto con el creador de dicha clase y le pedi me ayude con la solucion a mi problema le mande lo avanzado y hasta el momento lo unico que obtuve como respuesta es que utilize dicha clase...

Me hablo metaforicamente y me dijo que la rueda ya estaba inventada pero yo me pregunto sera para todo camino...

Sabes que cado uno piensa de forma diferente y ademas cada situacion que se nos presenta no siempre es identico pero puede tener cierta similitud...

Espero contar con tu colaboracion...

Saludos,

GABRIEL