Listbox can't use a global array

[Brent]

dim a$(2)
call test
end
sub test
'dim a$(2)
a$(1)="One":a$(2)="Two"
listbox #lb, a$(), 2
end sub

The above code generates an error.

Runtime Error in program 'untitled': listbox #lb, a$(), 2
Message not understood: #asCollection

If you comment out the dim at the top and uncomment the one in the sub, it works fine.