listbox中的內容怎么到文本框里？

private

sub

command1_click()

dim

a()

as

string

dim

num

as

integer

a

=

split(text1.text,

vbcrlf)

'根據換行分割文本內容

num

=

ubound(a)

-

lbound(a)

'獲取數組長度

for

i

=

0

to

num

step

1

'循環寫入list1

list1.additem

(a(i))

next

i

end

sub