请高手翻译vb代码，谢谢

'动态画拆线的程序

Dim xo2 As Integer

Private Sub Pic_Click() '单击picture

Init '调用初始化函数

'下面的60000，为了测试我改为100

  Timer3.Interval = 100 '设置计时器，60000=1分钟执行一次代码

  Timer3.Enabled = True '计时器运行

End Sub

Private Sub Init() '初始化函数

  Dim i As Integer

  Pic.Cls '清画屏picture不为空

 Pic.Scale (-10, 120)-(120, -10) '定义比例尺,单位长或者叫做自定义度量衡

  Line (-10, i)-(110, i)  '画横轴线

  Line (i, -10)-(i, 110)  '画竖轴线

  For i = 0 To 100 Step 3  '横坐标

   ' Pic.Line (0, 0)-(100, 0)

    Pic.Line (0, 0)-(0, 100)

     'Pic.Line (0, I)-(100, I), RGB(0, 255, 0)

    Pic.Line (i, 0)-(i, 100), RGB(0, 0, 255)

    'Line (i, -2)-(i, 0)

    'Line (-2, i)-(0, i)

  Next

   For i = 0 To 100 Step 10  '纵坐标

    Pic.Line (0, 0)-(100, 0)

    'Pic.Line (0, 0)-(0, 100)

     Pic.Line (0, i)-(100, i), RGB(0, 255, 0)

    'Pic.Line (I, 0)-(I, 100), RGB(0, 0, 255)

    'Line (i, -2)-(i, 0)

    'Line (-2, i)-(0, i)

  Next

  Pic.CurrentX = 0

  Pic.CurrentY = 0

End Sub

Private Sub Timer3_Timer()

Static X As Integer

  Dim Y1 As Integer

  Dim Y2 As Integer

  xo2 = xo2 + 1 '相当于延迟1分钟再绘制

  If xo2 = 2 Then

  X = X + 3 '横轴步长，也是计数器

  If X = 90 Then '每画30条折线一清屏

    X = 0

    Init '再次初始化

  End If

  '下面是我为了测试临时改的

   Y1 = Y1 + Rnd() * 100 'Val(MSG3.TextMatrix(7, 4)) '取出网格组件中的值

  Y2 = Rnd '这个没用到呢？

  Pic.Line -(X, Y1), RGB(255, 0, 0) '画折线

  'Pic.Line -(X, Y2), RGB(255, 255, 0)

  xo2 = 0

  End If

End Sub 

测试效果图：

没分啊。。。。。

拼图