如何使一个给定的，变化的，速度的钟摆运动

Question

我目前正试图弄清楚如何由于重力使我的钟摆以其变化的速度移动。我试图这样做：

---

Do Until StopProgram = True
        Do Until Count = v
            Application.DoEvents()

            If DirectionNegative = False Then
                Me.Refresh()
                Count += 1
                Angle += 1
                RadianAngle = Angle * PlaceHolder
                If Angle >= 51 Then
                    Angle = 49
                    DirectionNegative = True
                End If
            ElseIf DirectionNegative = True Then
                Me.Refresh()
                Count += 1
                Angle -= 1
                RadianAngle = Angle * PlaceHolder
                If Angle <= -51 Then
                    Angle = -49
                    DirectionNegative = False
                End If
            End If
        Loop

        Count = 0

    Loop

---

这使得钟摆随着v（最终速度（使用SUVAT））而移动，但是目前这是通过使其运行而无论多长时间v，我希望摆锤每秒摆动X量，其中X根据需要而变化v。我被告知我应该尝试使用多线程，但在研究完之后我对整个事情感到困惑，我不知道从哪里开始，不管我有什么。