前端之家收集整理的这篇文章主要介绍了
VB.NET拖动无边框窗体API，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As IntPtr,_
ByVal wMsg As Integer,_
ByVal wParam As Integer,_
ByVal lParam As Integer) _
As Boolean
Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF010&
Const HTCAPTION = 2
Private Sub Form1_MouseMove(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
ReleaseCapture()
SendMessage(Me.Handle,WM_SYSCOMMAND,SC_MOVE + HTCAPTION,0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
