vb6.0如何让窗体跟随鼠标运动

首先将form的boderstyle属性设为0

Dim movesScreen As Boolean

Dim mousX As Integer

Dim mousY As Integer

Dim currX As Integer

Dim currY As Integer





Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

movesScreen = True

mousX = X

mousY = Y

End If



End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If movesScreen Then

currX = Form1.Left - mousX + X

currY = Form1.Top - mousY + Y

Form1.Move currX, currY

End If



End Sub





Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

movesScreen = False

End Sub