vb数组赋值的问题

因为在数组初始化中不能直接定义数组的维数，故你错在Dim label1_top(0 To 9) As Long
Dim label1_left(0 To 9) As Long
指明0-9，去掉(0-9)，还有你一个数据中有个b，也不对（细心阿）这样就ok了
Option Explicit
Dim i

Private Sub Form_Click()
Dim label1_top
Dim label1_left
label1_left = Array(120, 3000, 4200, 960, 2520, 4080, 960, 2520, 4080, 5760)
label1_top = Array(720, 1200, 1200, 2160, 2160, 2160, 3000, 3000, 3000, 1680)
For i = 0 To 9
Print label1_top(i)
Next i
End Sub
我运行了一个，可以
另一个留给你了

得一项一项赋值,
你的写法vb6不支持,
label1_left(0)=120,
label1_left(1)=3000,……

label1_top数组也一样。

label1_left = Array(b120, 3000, 4200, 960, 2520, 4080, 960, 2520, 4080, 5760)
中的Array(b120 改成Array(120试试

b120含非法字符，看定义数组为字符串

你定义的变量名含有非法字符：label1和下滑线