VB实现全窗体移动

Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m As Long,lP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m As Any) As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button = 1 Then ReleaseCapture SendMessage hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0 End If End Sub

http://topic.csdn.net/t/20030524/18/1829023.html

http://zhidao.baidu.com/question/93411647.html?fr=qrl&cid=867&index=5&fr2=query

我想把form5移动到form3中picture1的位置，下面是我的代码（在form3的code中）： 

Dim r2 As RECT 

GetwindowRect Picture1.hwnd,r2 

Form5.ScaleMode = vbPixels '设置坐标单位为像素

Form5.Move r2.Left,r2.Top 

Form5.Show 

为什么移动的坐标仍然是默认的缇而不是屏幕像素呢？ 
请指教！ 

问题补充：

要实现窗口的正确移动，应该怎么做？

将form5的左上角的位置挪到form3中picture1左上角的位置

'form3中 Private Type rect Left As Long Top As Long Right As Long B<a href="https://www.jb51.cc/tag/ott/" target="_blank" class="keywords">ott</a>om As Long End Type Private Declare Function Ge<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owRect Lib "user32" (ByVal hwnd As Long,lpRect As rect) As Long Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long,ByVal x As Long,ByVal y As Long,ByVal nWidth As Long,ByVal nHeight As Long,ByVal bRepaint As Long) As Long Private Sub Command1_Click() Dim wrect As rect Dim picrect As rect Ge<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owRect Picture1.hwnd,picrect Ge<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owRect Form5.hwnd,wrect MoveWindow Form5.hwnd,picrect.Left,picrect.Top,wrect.Right - wrect.Left,wrect.B<a href="https://www.jb51.cc/tag/ott/" target="_blank" class="keywords">ott</a>om - wrect.Top,True Form5.Show End Sub