aus dem subfomrular zurück ins Hauptformular

[vampir666]

Hallo Community
Ich habe ein seltsames Problem.
Ich greife mit einem Macro auf ein subformular hole aus der 1 spalte ein Wert und übergebe es an das Positionsfeld des hauptformulars.
Wenn ich dieses Macro aus dem Hauptfomular aufrufe funktioniert alles wunderbar.
Ich möchte dieses Macro aber aus dem subfomrular ausführen wenn ich im Subfomular die Maustaste loslasse und das funktioniert nicht kann mir jemand helfen.
Hier das Macro:

Dim Nummer as integer
odoc=thisComponent
odraw1=odoc.drawpage
form1=odraw1.forms.getbyIndex(0)
osubform=form1.getbyname("History")
myselect=osubform.getInt(1)

Nummer=myselect
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object

rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue

args1(0).Name = "Position"
args1(0).Value = Nummer

dispatcher.executeDispatch(document, ".uno:AbsoluteRecord", "", 0, args1())