vb编程教程求一个简单vb编程实例~

求一个简单vb编程实例~

控件：image,picture,timer代码：Dim x As Integer Dim y As IntegerPrivate Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End SubPrivate Sub Timer1_Timer() If img.Top >= pic.Height - img.Height Then y = -100 End If If img.Top <= 0 Then y = 100 End If If img.Left >= pic.Width - img.Width Then x = -100 End If If img.Left <= 0 Then x = 100 End If img.Top = img.Top + y img.Left = img.Left + x End Sub 以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动