まつおかさん、こてちゅさん、こんにちは。

こてちゅさんのとほどんど同じですが、私は次の方法でやっています。

/*** wf_MoveCenter() ***/

// 環境変数の取得
Environment SysEnv
If GetEnvironment( SysEnv ) = -1 Then Return

// 変数
Integer win_x, win_y, scr_w, scr_h

// スクリーンサイズをPowerBuilder単位系に変換
scr_w = PixelsToUnits( SysEnv.ScreenWidth , XPixelsToUnits! )
scr_h = PixelsToUnits( SysEnv.ScreenHeight, YPixelsToUnits! )

// サイズチェック
If This.Width > scr_w or This.Height > scr_h Then
MessageBox( \"警告\", \"このウィンドウはスクリーンより大きなサイズで定義されています。\", 
Exclamation! )
End If

// 移動座標の算出
win_x = Max( 1, ( scr_w - This.Width  ) / 2 )
win_y = Max( 1, ( scr_h - This.Height ) / 2 )

// 移動
This.Move( win_x, win_y )

安全を見て、ウィンドウの左上部分がスクリーンから隠れてしまうのを防いでいる点が
違いますね。