改变ShowMessage显示的位置

Dim x,y//自定义显示位置
x = GetScreenX() / 2 -150
y = GetScreenY() / 2 -150
ShowMessage "自定义显示位置", 1000, x, y