拖动无边框的窗体

拖动无边框的窗体 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