求一个vb做的小球跟随鼠标移动的程序

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
球.Left = X
球.Top = Y
End Sub
可以稍微加点偏移量 防止鼠标挡住球。。。。

Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim mp As Integer
Private Sub Form_Load()
Image1.Picture = LoadPicture("d:\cp\y.bmp")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
x2 = Image1.Left
y2 = Image1.Top
mp = 0
End Sub
Private Sub Timer1_Timer()
Dim i As Integer, k As Integer
i = Int((x1 - x2) / 10)
k = Int((y1 - y2) / 10)
If mp < 9 Then
Image1.Left = Image1.Left + i
Image1.Top = Image1.Top + k
mp = mp + 1
Else
Image1.Left = x1
Image1.Top = y1
End If
End Sub

给你个思路
1.透明窗体程序。做一张bmp的图，做成透明窗体
2.加一个timer用api定时获取鼠标位置，然后form move到鼠标跟前。

- >