Active Basic 枠無しウインドウをマウスで移動させる

質問

枠なしのウインドウ（スタイル：ポップアップ/枠無し）を、
ドラッグで任意の場所に移動させたいのですが、知識が足りません。

一応抵抗はしてみたのですが、あっけなく弾き飛ばされました。

'グローバル
Dim LClickFlag As Long

Sub MainWnd_LButtonDown(flags As Long, x As Integer, y As Integer)
LClickFlag=TRUE

End Sub

Sub MainWnd_LButtonUp(flags As Long, x As Integer, y As Integer)
LClickFlag=FALSE

End Sub

Sub MainWnd_MouseMove(flags As Long, x As Integer, y As Integer)
If LClickFlag=TRUE Then
SetWindowPos(hMainWnd,NULL,x,y,0,0,SWP_NOSIZE)
End If

End Sub

動きはしますが、ちょこちょこちょこちょこ動いて、移動させたい場所に移動できません。
すみませんが、どのようにやれば良いかのご教授をお願いします。

それと、ずっと参考にしていた、Active Basicの非公式WIKI様（http://www.2chab.net/pukiwiki/index.php?ActiveBasic%20Wiki-TopPage）は、もう復活しないのでしょうか。
こちらも知っていらっしゃる方がいらっしゃいましたら、ご教授をお願いします。

回答No.1

redfox63 · ベストアンサー

マウスボタンを押したときのX/Y座標を記憶しておいて
MouseMoveに来た時点引数のX/Yと差分を計算し
この値をScreen座標に変換してから SetWindowPosに与えましょう

'グローバル変数
dim pt as POINTAPI
Dim LClickFlag As Long
Sub MainWnd_LButtonDown(flags As Long, x As Integer, y As Integer)
　　if LClickFlag=FALSE then
　　　　LClickFlag=TRUE
　　　　pt.x = x
　　　　pt.y = y
　　end if
End Sub

Sub MainWnd_LButtonUp(flags As Long, x As Integer, y As Integer)
if LClickFlag=TRUE then
　　LClickFlag=FALSE
end if
End Sub

Sub MainWnd_MouseMove(flags As Long, x As Integer, y As Integer)
　　If LClickFlag=TRUE Then
　　　　dim ptScr as POINTPAI
　　　　ptScr.x = x - pt.x
　　　　ptScr.y = y - pt.y
　　　　ClientToScreen( hMainWnd, ptSrc )
　　　　SetWindowPos(hMainWnd,NULL,ptSrc.x,ptSrc.y,0,0,SWP_NOSIZE)
　　End If
End Sub
といった具合です