Private Sub Form_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Image1.Visible = False                  '图象框不可见
Timer1.Enabled = False                  '计时器禁用
End Sub

Private Sub Timer1_Timer()
If Shape1.Height > 50 Then
Shape1.Top = Shape1.Top - 100                '小球向上移动100
Shape1.Left = Shape1.Left + 200              '小球向右移动200
Shape1.Height = Shape1.Height - 50           '小球的长度减少50
Shape1.Width = Shape1.Width - 50             '小球的宽度减少50
Line1.X1 = Line1.X1 + 200                    '托板向右移动200
Line1.X2 = Line1.X2 + 200
Else
Timer1.Enabled = False                       '计时器停止工作
Shape1.Visible = False                       '小球隐藏
Image1.Visible = True                        '显示图像，图像的位置是当前小球的位置
Image1.Top = Image1.Top - Image1.Height / 2
Image1.Left = Image1.Left - Image1.Width / 2
End If
End Sub
帮解释一下红色字体的意思.

呵呵，你比我厉害呢！我看不明白，可是我也是学VB的，以后多多指教啊！

后边不是有注释吗？
 '托板向右移动200

同意斑竹的看法,
自己都把注释写出来了
还怎么问别人!

我应该问Line1.X1 中,为什么用X1.

你的问题就跟问TEXT1.TEXT为什么用TEXT？

路过,没有意见...

呵呵

就是画的那条线的第一端点的横坐标啦...

谢谢~~~