vb如何編寫彈出抖動的窗口動畫?

Dim MyValue As Integer

Dim i As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

i = 0

End Sub

Private Sub Form_Load()

Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()

Randomize ' 對隨機數生成器做初始化的動作。

MyValue = (1 - 2 * Rnd) * 1000

Me.Left = MyValue + Me.ScaleHeight * Rnd

Me.Top = MyValue + Me.ScaleHeight * Rnd

i = i + 1

If i >= 20 Then Timer1.Enabled = False

End Sub