在VB中实现移动没有标题栏的窗口

1. 通过消息的发送实现移动无标题窗体。当鼠标按下、移动或释放时，将鼠标在窗体上按下的消息(消息值为HTCAPTION)发出，就可以拖动窗体了。代码如下： 
3. 　　 Private Declare Function ReleaseCapture Lib "user32" () As Long 
5. 　　 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, 
7. 　　 ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
9. 　　 Private Const WM_NCLBUTTONDOWN = &&HA1 
11. 　　 Private Const HTCAPTION = 2 
13. 　　 '以上API函数和常数的声明可在VB自带的“API浏览器”中找到 
15. 　　 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
17. 　　　 '在窗体的MouseDown事件中添加以下代码 
19. 　　　 If Button = 1 Then 
21. 　　　 Call ReleaseCapture 
23. 　　　 Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) 
25. 　　　 End If 
27. 　　 End Sub 
29. 　　 Private Sub Command1_Click() 
31. 　　 End　　'退出程序 
33. 　　 End Sub 
35. 　　 这种方法实现起来比第一种方法更容易，只有几行代码，并且没有那么多的变量，窗体被拖动时与普通窗体一样，只有一个虚框随鼠标的移动而移动，当释放鼠标时窗体才移动到相应的位置。用到了两个API函数。