这个程序为什麽不能运行？？请指教，不胜感激！！

[kemenghan1]

字随鼠标动
dim b(6,2)as integer Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) b(6, 0) = b(5, 0): b(6, 1) = b(5, 1) b(5, 0) = b(4, 0): b(5, 1) = b(4, 1) b(4, 0) = b(3, 0): b(4, 1) = b(3, 1) b(3, 0) = b(2, 0): b(3, 1) = b(2, 1) b(2, 0) = b(1, 0): b(2, 1) = b(1, 1) b(1, 0) = b(0, 0): b(1, 1) = b(0, 1) b(0, 0) = X: b(0, 1) = Y fly(0).Left = b(1, 0): fly(0).Top = b(1, 1) fly(1).Left = b(2, 0): fly(1).Top = b(2, 1) fly(2).Left = b(3, 0): fly(2).Top = b(3, 1) fly(3).Left = b(4, 0): fly(3).Top = b(4, 1) fly(4).Left = b(5, 0): fly(4).Top = b(5, 1) fly(5).Left = b(6, 0): fly(5).Top = b(6, 1) End Sub flPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) b(6, 0) = b(5, 0): b(6, 1) = b(5, 1) b(5, 0) = b(4, 0): b(5, 1) = b(4, 1) b(4, 0) = b(3, 0): b(4, 1) = b(3, 1) b(3, 0) = b(2, 0): b(3, 1) = b(2, 1) b(2, 0) = b(1, 0): b(2, 1) = b(1, 1) b(1, 0) = b(0, 0): b(1, 1) = b(0, 1) b(0, 0) = X: b(0, 1) = Y fly(0).Left = b(1, 0): fly(0).Top = b(1, 1) fly(1).Left = b(2, 0): fly(1).Top = b(2, 1) fly(2).Left = b(3, 0): fly(2).Top = b(3, 1) fly(3).Left = b(4, 0): fly(3).Top = b(4, 1) fly(4).Left = b(5, 0): fly(4).Top = b(5, 1) fly(5).Left = b(6, 0): fly(5).Top = b(6, 1) fly()为LABEL控件.bordstyle设为0 .label中放需要鼠标动的字

[Paul888]

up

[daryl715]

好乱，能不能工整点

[lily0000000]

晕了

[hycao]

写成这样，能运行才怪。我整理了一下，可以运行呀。

Option Explicit
Dim b(6, 2) As Integer

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
b(6, 0) = b(5, 0): b(6, 1) = b(5, 1)
b(5, 0) = b(4, 0): b(5, 1) = b(4, 1)
b(4, 0) = b(3, 0): b(4, 1) = b(3, 1)
b(3, 0) = b(2, 0): b(3, 1) = b(2, 1)
b(2, 0) = b(1, 0): b(2, 1) = b(1, 1)
b(1, 0) = b(0, 0): b(1, 1) = b(0, 1)
b(0, 0) = X: b(0, 1) = Y
fly(0).Left = b(1, 0): fly(0).Top = b(1, 1)
fly(1).Left = b(2, 0): fly(1).Top = b(2, 1)
fly(2).Left = b(3, 0): fly(2).Top = b(3, 1)
fly(3).Left = b(4, 0): fly(3).Top = b(4, 1)
fly(4).Left = b(5, 0): fly(4).Top = b(5, 1)
fly(5).Left = b(6, 0): fly(5).Top = b(6, 1)
End Sub

[kemenghan1]

为什麽显示子程序或函数未定义？

[kemenghan1]

谢谢！一切尽在不言中！