i_ndex(100) as String

Option Explicit On
Option Strict On
 Dim i_ndex(100) As String '= Nothing
        list_a.Items(list_sql.SelectedIndex) = list_a.Items( _
          list_sql.SelectedIndex).ToString 
        Dim i = list_a.SelectedIndex
        i_ndex(i) = list_sql.Items(i).ToString