やっと、V.B.のFrom_Resize() の入口にたてた。
細かいことは、"C:\FbEdit\*.bas" で (hBtn,x,y,97,31,TRUE と検索して。
Function WndProc(中略) As Integer 以下に、以下の宣言文
dim as long id, event, x, y
dim hBtn as HWND
'Type RECT
’（中略、ロボットに引っかかったみたい）
'End Type
dim reWin as RECT
Dim rect as RECT
Dim As Long SizeFlag, nWidth, nHeight

Select Case uMsg 内の Case WM_SIZE　以下に追記
'ユーザーによってウィンドウサイズを変更された時に発生
SizeFlag=HiWord(wParam)
nWidth = LOWORD(lParam)
nHeight = HIWORD(lParam)
'const SIZE_RESTORED = 0
’（中略、ロボットに引っかかったみたい）
'const SIZE_MAXHIDE = 4
'declare function GetClientRect(byval hWnd as HWND, byval lpRect as LPRECT) as WINBOOL
'declare function GetWindowRect(byval hWnd as HWND, byval lpRect as LPRECT) as WINBOOL
MSReturnCode = GetWindowRect(hWnd,@reWin): '全体枠全体の寸法取得
MSReturnCode = GetClientRect(hWin,@rect): '全体枠内部の寸法取得
hBtn=GetDlgItem(hWin,IDC_BTN1): '個別表示物のハンドル(枠番号)を取得, hBtn=0でエラー
x=rect.right-100
y=rect.bottom-35
MSReturnCode = MoveWindow(hBtn,x,y,97,31,TRUE): '個別表示物の枠の寸法を定義, 再作画を指示
'declare function MoveWindow(byval hWnd as HWND, byval X as long, byval Y as long, byval nWidth as long, byval nHeight as long, byval bRepaint as WINBOOL) as WINBOOL

関数はあっているかどうか知らぬ。内容をダンプしていないから