hi,

*** code ***
for i = 1 TO 100
  oLabel       := XbpActiveXControl():new( 
oDlg:drawingArea,{100,(i*10)},{100,80} )
  oLabel:CLSID := "myCLSID"
  oLabel:create( oDlg:drawingarea,,,aPP,.F.)
next
*** eof ***
so i have 100 activeX. is this realy need ?

some Code to show what i meen
*** code ***
CLASS  HX_Button FROM XbpActiveXControl
EXPORTED:
   METHOD init()
   METHOD create()
ENDCLASS

METHOD HX_Button:Init(oParent, oOwner, aPos, aSize, aPP, lVisible)
   
    without aPP !!!
   
   ::XbpActiveXControl:Init( oParent, oOwner, aPos, aSize)
   ::CLSID   := "Codejock.PushButton"+HX_VERSION()
   ::License := "blabla"
RETURN self

METHOD HX_Button:Create(oParent, oOwner, aPos, aSize, aPP, lVisible)
   ::XbpActiveXControl:Create( oParent, oOwner, aPos, aSize)
*** eof ***
each time a new activeX is created.

Question : can i create 1 activeX and make 100 Instance of it ?

*** pseudo Code ***
CLASS  HX_Button FROM XbpActiveXControl
EXPORTED:
   CLASS VAR oButton
   CLASS METHOD initClass()
   METHOD init()
   METHOD create()
   VAR oNew
ENDCLASS
CLASS METHOD HX_Button:initClass(oParent, oOwner, aPos, aSize, aPP, 
lVisible)
   ::oButton := ::XbpActiveXControl:New( oParent, oOwner, aPos, aSize)
   ::oButton:CLSID   := "Codejock.PushButton"+HX_VERSION()
   ::oButton:License := "blabla"
   ::oButton:create()
RETURN self
METHOD HX_Button:Init(oParent, oOwner, aPos, aSize, aPP, lVisible)
RETURN self
METHOD HX_Button:Create(oParent, oOwner, aPos, aSize, aPP, lVisible)
    oNew := ::oButton  just make a Instance ?
RETURN self
*** eof ***
is this possible to get that "pseudo" Code work ?

greetings by OHR
Jimmy