拖动无边框的窗体

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