Popups auf einen Knopfpositon erscheinen (Solved)

Hallo, ich habe folgendes Problem. In unserer Visualisierung benutzen wir Popups diese haben wir immer mit den XY Koordinaten plaziert die von Bild zu Bild anders waren. Jetzt werden es aber immer mehr. Um nicht bei jedem Bild raten zu müssen will ich zb einen unsichtbaren Knopf plazieren wo dann das Popup auf dem Bild erscheint.  

  Ich hab aus volgendem Beitrag gefunden habe aber probleme mit diesem ich weiß nicht wie ich denn knopf wo dass bild erscheien soll verknüpfe

Dim X_pos,Y_pos,obj_RT,ov_height

'btn_Popup_1 , txt_X_pos , txt_Y_pos, txt_ov_height
ov_height = HmiRuntime.Screens("Overview").Height
Set obj_RT = HmiRuntime.Screens("PopKnopf") 'the screenname must be entered here, or a Tag with the Screenname

X_pos = obj_RT.ActiveScreenItem.Left
Y_pos = obj_RT.ActiveScreenItem.Top

'simple output only for compare

obj_RT.ScreenItems("txt_X_pos").Text = "Button X:" & X_pos
obj_RT.ScreenItems("txt_Y_pos").Text = "Button Y:" & Y_pos
obj_RT.ScreenItems("txt_ov_height").Text = "Overview h:" & ov_height

'89 is the height of my Overviewscreen
ShowPopupScreen "TestPopup", X_pos, Y_pos + ov_height, hmiToggle, hmiAnimationOff, hmiMedium

'For further purposes if needed as tags
SmartTags("Popup_X_Pos") = X_pos
SmartTags("Popup_Y_Pos") = Y_pos + ov_height 'complete calculated Y-Position will be written in the Tag

Set obj_RT = Nothing

End Sub

 Für die Hilfe währe ich sehr dankbar.

WinCC Advanced V16 update 2

IPC477E

Habs gelöst:

Dim X_pos,Y_pos,obj_RT,ov_height


ov_height = 60
Set obj_RT = HmiRuntime.ActiveScreen.ScreenItems("test_123") 'the screenname must be entered here, or a Tag with the Screenname

X_pos = obj_RT.Left
Y_pos = obj_RT.Top

ShowSystemAlarm "test_pop X_pos:" & X_pos

'89 is the height of my Overviewscreen
ShowPopupScreen "testPopup", X_pos, Y_pos + ov_height,hmiOn, hmiAnimationOff, hmiMedium

Set obj_RT = Nothing