TBE...

accepted

 cp: retargeted to Office-Later due to limited ressources

changed target

added keyword accessibility

re-targeted to OOo 3.0

re-targeted back to OOo 2.0.2, the re-targeting to OOo 3.0 was done by error

The com.sun.star.awt.UnoControlContainer supports the 
com::sun::star::accessibility::XAccessible interface,
but an XAccessibleContext is only returned, if a window
peer exists for the control container. This behaviour
is the same for all com.sun.star.awt toolkit controls.
Please see the macro below, which creates a peer
for the control container.

------------------------------------------------------------------------------

REM  *****  BASIC  *****

Sub Main

    Dim oControlModel As Object
    Dim oControl As Object
    Dim oToolkit As Object
    Dim oContext As Object

    REM create the control model
    oControlModel = CreateUnoService( "com.sun.star.awt.UnoControlContainerModel" )

    REM create the control and set the model
    oControl = CreateUnoService( "com.sun.star.awt.UnoControlContainer" )	
    oControl.setModel( oControlModel )	
	
    REM create a peer
    oToolkit = CreateUnoService( "com.sun.star.awt.Toolkit" )	
    oControl.createPeer( oToolkit, NULL )
	
    REM get the accessible context	
    oContext = oControl.getAccessibleContext()
    MsgBox isNull( oContext )
	
End Sub

------------------------------------------------------------------------------

TBE->SW: I propose to close this task.

the sample works nicely

closing