Imports System.Drawing  
　　Imports System.Windows.Forms  
　　’******************************************  
　　Private oOriginalRegion As Region = Nothing  
　　’ 用于窗体移动  
　　Private bFormDragging As Boolean = False  
　　Private oPointClicked As Point  

　　’******************************************  

　　Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown  

　　Me.bFormDragging = True  
　　Me.oPointClicked = New Point(e.X, e.Y)  

　　End Sub  
　　’******************************************  

　　Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp  
　　Me.bFormDragging = False  

　　End Sub  
　　’******************************************  

　　Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove 
 
　　If Me.bFormDragging Then  

   　　Dim oMoveToPoint As Point  

　　’ 以当前鼠标位置为基础，找出目标位置  

　　oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))  

　　’ 根据开始位置作出调整  

　　oMoveToPoint.Offset(Me.oPointClicked.X * -1, _  

　　(Me.oPointClicked.Y + _  

　　SystemInformation.CaptionHeight + _  

　　SystemInformation.BorderSize.Height) * -1)  

　　’ 移动窗体  

　　Me.Location = oMoveToPoint  

　　End If  

　　End Sub