关于VB中窗口控制的问题

Question

我现在有一个vb窗口，我已经把这个窗口的borderstyle属性修改为了0-None，也就是说现在这个窗口在运行的时候是无法修改他的大小和位置的，可是我现在想在运行的时候能移动这个窗口的位置，我应该怎么做呢？还请高手求教！

Answer 1

Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongSub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As
Single)
              If Button = 1 Then 
                     Dim ReturnVal As Long
                     x = ReleaseCapture()
                     ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN,
HTCAPTION, 0)
              End If
End Sub