MoveCenter

Dim x,y As Double

Sub OnInitParameters()
    RegisterParameterContainer("pivot", "PIVOT")
    RegisterPushButton("update", "UPDATE", 1)
End Sub

Sub OnParameterChanged(parameterName As String)
    moveCenter()
End Sub

Sub OnExecAction(buttonId As Integer)
    If buttonId == 1 Then
       moveCenter()
    End If
End Sub

Sub moveCenter()
    Dim container As container
    container = GetParameterContainer("pivot")
    container.LocalPosToScreenPos(container.position.xyz, x, y)
    This.SetCenterScreenPositionLocked(x, y)
End Sub