VB.NET 拖动无边框的窗体- -

第1楼   VB.NET 拖动无边框的窗体- - 　'****************************************** 　　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