VB设计跳动的小球

我可以让form在屏幕上四处乱撞，你可以在在form上贴个球的图片，然后用api把form透明化，只留下图片，透明化代码我也有。

Public a, b

Private Sub Command1_Click() '停止移动
Timer1.Interval = 0
End Sub

Private Sub Command2_Click() '开始移动
Timer1.Interval = 1
End Sub

Private Sub Form_Load()
Randomize '初始化移动的方向
a = 50 * Rnd
b = 50 * Rnd
End Sub

Private Sub Timer1_Timer()

'form1移动
Form1.Left = Form1.Left + a
Form1.Top = Form1.Top + b

If Form1.Left < 0 Or Form1.Left + Form1.Width > Screen.Width Then 'form1碰到左右边界
a = -a
End If

If Form1.Top < 0 Or Form1.Top + Form1.Height > Screen.Height Then 'form1碰到上下边界
b = -b
End If

End Sub