Thanks for your help, I found something in the forum that works for me:
var ewc as EmbeddedWindowControl = EmbeddedWindowControl(me.Parent)
var c as ContainerControl1 = ContainerControl1(ewc.Container())
me.Tooltip = c.wert.totext
------------------------------------------------------------------------
Protected Module EmbeddedWindowControlExtensions
Function Container(extends ctrl as EmbeddedWindowControl) As ContainerControl
Dim handleToFind As Integer = ctrl.Handle
If handleToFind = 0 Then
Return Nil
End If
// ok we have the handle for this EWC
// so find the matching ContainerControl
Dim iter As Runtime.ObjectIterator = Runtime.IterateObjects
While iter.MoveNext
If iter.Current IsA ContainerControl Then
Dim tInfo As Introspection.TypeInfo = Introspection.GetType(iter.Current)
Dim pInfo() As Introspection.PropertyInfo = tInfo.GetProperties
For Each propInfo As Introspection.PropertyInfo In pInfo
If propInfo.Name = "handle" And propInfo.Value(iter.Current) = handleToFind Then
Return ContainerControl(iter.Current)
End If
Next
End If
Wend
Return Nil
End Function
End Module