nariseki5さん、こんばんは。

面白そうだったので、少し調べてみました。
Win32 API SetLayeredWindowAttributes を使用すれば可能です。

参考にしたWebページ
https://www.microsoft.com/japan/msdn/windows/windows2000/layerwin.asp

---------- スクリプト ----------
// Window field offsets for GetWindowLong()
integer GWL_EXSTYLE = -20
// RedrawWindow() flags
integer RDW_INVALIDATE  = 1 // 0x0001
integer RDW_ERASE       = 4 // 0x0004
integer RDW_ALLCHILDREN = 128 // 0x0080
integer RDW_FRAME       = 1024 // 0x0400

long LWA_ALPHA = 2 // 0x00000002
long WS_EX_LAYERED = 524288 // 0x00080000

---------- 半透明にするときのスクリプト ----------
long ll_winhwnd

ll_winhwnd = Handle(parent)

// このウィンドウに WS_EX_LAYERED を設定する 
SetWindowLong(ll_winhwnd, GWL_EXSTYLE, &
GetWindowLong(ll_winhwnd, GWL_EXSTYLE) + WS_EX_LAYERED)

// このウィンドウを 70% のアルファにする
SetLayeredWindowAttributes(ll_winhwnd, 0, (255 * 70) / 100, LWA_ALPHA)

---------- 不透明にするときのスクリプト ----------
long ll_winhwnd, ll_null

setnull(ll_null)
ll_winhwnd = Handle(parent)

// このウィンドウ スタイルから WS_EX_LAYERED を削除する
SetWindowLong(ll_winhwnd, GWL_EXSTYLE, &
GetWindowLong(ll_winhwnd, GWL_EXSTYLE) - WS_EX_LAYERED)

// ウィンドウとその子に再描画を要求する
RedrawWindow(ll_winhwnd, ll_null, ll_null, &
RDW_ERASE + RDW_INVALIDATE + RDW_FRAME + RDW_ALLCHILDREN)

注意:
PowerBuilderではビット演算の論理和や論理積を計算できないので、単純に足し算引き算しています。
そのため、ひとつのスクリプトを連続で実行しないでください。