Public selectindex As ListBox.SelectedIndexCollection '首先定义一个全局变量
dim array_index(n)
‘取出选中的每一行的行号
selectindex = LstBox.SelectedIndices()
dim i as integer
for i = 0 to selectindex.count-1
array_index(i) = selectindex.Item(i)
next
'将取出的行号再设回listbox
dim i as integer
i = selectindex.Count
For i = 0 To array_index.GetUpperBound(0) - 1
LstBox_Desc.SetSelected(array_index(i), True)
Next