Zitat:

Dein Array i_ndex() ist deklariert, aber nicht angelegt. Du musst dein Array initalisieren so zB Sub test() Dim i_ndex(4) As Integer Dim i As Integer i = 2 i_ndex(i) = 1 end Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim i_ndex()
        list_a.Items(list_a.SelectedIndex) = list_a.Items(list_a.SelectedIndex) _
          & " | " & "ok"' funktioniert
        Dim i = list_a.SelectedIndex
        i_ndex(i) = list_a.Items(list_a.SelectedIndex)  ' hier Fehlermeldung
    End Sub