hi,

when using CreateObject()

*** Code ***

::oCalCon   :=
CreateObject("Codejock.CalendarControl"+HX_VERSION(),,cLicense )

#IFDEF MakeBUG
   ::oOptions  := ::oCalCon:callMethod("Options") -> crash
   ::ohWnd      := ::oCalCon:getProperty("hWnd") -> crash

dito.

   ::oCalCon   := ::oCalCon:dynamicCast( ActiveXObject() )
   ::oOptions  := ::oCalCon:callMethod("Options")  -> crash
   ::ohWnd      := ::oCalCon:getProperty("hWnd") -> crash
#ENDIF

::oDialogs   := CreateObject("Codejock.CalendarDialogs"+HX_VERSION() )

::oDialogs:Calendar := ::oCalCon
::oDialogs:ShowNewEvent()   this will show internal Dialog !!!

#IFDEF MakeBUG

 can not call Methode or get/set Property

   ::oOptions  := ::oCalCon:callMethod("Options") -> crash
   ::ohWnd      := ::oCalCon:getProperty("hWnd") -> crash

dito.

   ::oCalCon   := ::oCalCon:dynamicCast( ActiveXObject() )
   ::oOptions  := ::oCalCon:callMethod("Options")  -> crash
   ::ohWnd      := ::oCalCon:getProperty("hWnd") -> crash
#ENDIF

*** Eof ***

when using XbpActiveXControl()

*** Code ***

::oCalCon   := XbpActiveXControl() :new( ::drawingArea,, {0,30},{652,450})
::oCalCon:CLSID   := "Codejock.CalendarControl" + HX_VERSION()
::oCalCon:License := cLicense
::oCalCon:create()

::oOptions  := ::oCalCon:callMethod("Options") -> work !!!
::ohWnd      := ::oCalCon:getProperty("hWnd") -> work !!!

#IFDEF MakeBUG
::oDialogs:Calendar := ::oCalCon -> crash
#ENDIF

*** Eof ***

so if i have

Super Class
         AutomationObject() by CreateObject()
          using
         oObj := oObj:dynamicCast( ActiveXObject() )
         ->
         Sub Class
               ActiveXObject()
                using
               oObj := oObj:???   what ... ???
               ->
               Sub Class
                      XbpActiveXControl()

how do i get from ActiveXObject() to XbpActiveXControl() ???

greetings by OHR
Jimmy