Передать в массив индексы ListBox

    Dim a()
    Dim m
    Dim qq
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        m = ListBox1.SelectedItems.Count
        ReDim Preserve a(m)
        If m = 0 Then Exit Sub
        a(m) = ListBox1.SelectedIndices(m - 1)
        TextBox1.Text = m
        ListBox2.Items.Add(ListBox1.SelectedIndices(m - 1))
        TextBox2.Text = UBound(a)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = ""
        qq = ""
        For r = 1 To UBound(a)
            qq = qq & a(r)
        Next
        TextBox3.Text = qq
        ListBox1.SelectedItems.Clear()
    End Sub

For I As Integer = 0 To ListBox1.SelectedItems.Count - 1
            TextBox1.Text &= ListBox1.SelectedIndices(I)
        Next

Dim Arr()
 
For Each Index In ListBox1.SelectedIndices
            ReDim Preserve Arr(h)
            Arr(h) = CInt(Index.ToString())
            h = h + 1
        Next