在中如何拖动无边框的窗体的

\'******************************************

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 useEventArgs) Handles useDown

ormDragging = True

ointClicked = New Point(e.X, e.Y)

End Sub

\'******************************************

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As useEventArgs) Handles useUp

如果想抢注账号的小伙伴可以多多准备一点号! ormDragging = False

End Sub

\'******************************************

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As useEventArgs) Handles useMove

If ormDragging Then

Dim oMoveToPoint As Point

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

oMoveToPoint = intToScreen(New Point(e.X, e.Y))

\' 根据开始位置作出调整

fset(ointClicked.X * -1, _

(ointClicked.Y + _

ptionHeight + _

ight) * -1)

\' 移动窗体

cation = oMoveToPoint

End If

End Sub