这段vb程序哪里出错了

Dim a$(), b%(), n As Integer, max As Integer
Private Sub Form2_Load()

Public Sub zbx()
Cls
Open "C:\Documents and Settings\Administrator\桌面\data.txt" For Input As #1
Do While Not EOF(1)
n = n + 1
ReDim Preserve a(n)
ReDim Preserve b(n)
Input #1, a(n), b(n)
If b(n) > max Then max = b(n)
Loop
Close #1
Form2.Scale (-3, max * 1.2)-(max * 1.2, -max * 0.1) '根据max的值定义坐标系'
Line (0, 0)-(max * 1.2, 0): Line (0, 0)-(0, max * 1.2)
CurrentX = -3: CurrentY = -1
Print "数据:";
For i = 1 To UBound(a)
Print a(i); b(i);
Next i

End Sub
那是复制的时候
漏掉了Form2.Scale (-3, max * 1.2)-(max * 1.2, -max * 0.1) '根据max的值定义坐标系'
调试的时候提示这一局出错

请看看我这段VB代码哪里出错了？ 一段VB程序，哪里出错了？ 这个VB程序哪里出错了 谁能帮我看看这段JAVA程序哪里出错了？ 我这段VB程序哪里错了? 请问这段C#程序哪里出错？ 请高手指点：这段VB程序出错在什么地方？ 这段程序那里出错了? 这段程序那出错了 vfp高手，帮帮我，看看这段程序哪里出错了，急用