VB模拟绳子跟随鼠标自由晃动

Option Explicit

Dim xX(100) As Single, yY(100) As Single
Dim WithEvents Timer1 As VB.Timer

Private Sub Form_Load()
Me.ScaleHeight = 200
Me.ScaleWidth = 300
Me.BackColor = &H0
Me.AutoRedraw = True
Set Timer1 = Controls.Add(“VB.Timer”, “timer1”)
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xX(0) = X
yY(0) = Y
End Sub

Private Sub Timer1_Timer()
Dim a As Integer, ay As Single, r As Single
ay = 4
Me.Cls
For a = 1 To 100
If yY(a) < (yY(0) + 110) Then yY(a) = yY(a) + ay
r = Sqr((xX(a - 1) - xX(a)) ^ 2 + (yY(a - 1) - yY(a)) ^ 2)
If r < 1 Then r = 1
xX(a) = xX(a) + (xX(a - 1) - xX(a)) * (r - 1) / r
yY(a) = yY(a) + (yY(a - 1) - yY(a)) * (r - 1) / r
Me.Line (xX(a), yY(a))-(xX(a - 1), yY(a - 1)), RGB(0, 255, 255)
Next
End Sub