VB6 удаление элемента из ListBox при его выборе и нажатии кнопки

Private Sub Command1_Click()
        Unload Me
End Sub
 
Private Sub Form_Load()
 
     With Me.List1
     
          For i% = 1 To 10
          
              .AddItem CStr(i%)
              
          Next i%
     
     End With
 
End Sub
 
Private Sub List1_DblClick()
 
    k% = Me.List1.ListIndex
    
    If MsgBox("Подтвердите удаление элемента " + Me.List1.List(k%)) = vbOK Then
    
       Me.List1.RemoveItem k%
 
    End If
    
End Sub

Option Explicit
Dim strPositions() As String
 
' Функция которая удаляет строчку из массива String по индексу
Public Function ShrinkArrayString(ByRef nArr() As String, ByVal nIndex As Long) As Boolean
    On Error Resume Next
    
    Dim i As Long
    
    If nIndex <= UBound(nArr) Then
        If Err.Number = 9 Then ' Массив не инициализирован
            Err.Clear
            Exit Function
        End If
        
        For i = nIndex To UBound(nArr)
            If i <> UBound(nArr) Then ' Если это не последняя строка
                ' Строчка индекса удаляется, а значит строчка индекса должна стать следующей строчкой
                nArr(i) = nArr(i + 1)
            Else
                If LBound(nArr) = UBound(nArr) Then ' Если последняя строка так же является ещё и первой
                    Erase nArr ' Значит сразу очистить полностью массив
                    ShrinkArrayString = True
                    Exit Function
                End If
            End If
        Next
        
        ReDim Preserve nArr(UBound(nArr) - 1)
        ShrinkArrayString = True
    End If
End Function
 
Private Sub Command1_Click() ' Удалить позицию из листбокса и массива
    Dim ListIndexSave As Long
    
    If List1.ListIndex > -1 Then
        ListIndexSave = List1.ListIndex ' Запомнить строчку на котрой мы были
        
        List1.RemoveItem ListIndexSave ' Удалить строчку из ListBox
        ShrinkArrayString strPositions, ListIndexSave ' Удалить строчку из массива
        
        ' Выделить строчку в листбоксе после удаления
        If List1.ListCount > 0 Then
            If ListIndexSave < List1.ListCount Then
                List1.Selected(ListIndexSave) = True
            Else
                List1.Selected(List1.ListCount - 1) = True
            End If
        End If
    End If
End Sub
 
Private Sub Command2_Click() ' Показать массив
    Dim i As Long
    Dim str As String
    
    If List1.ListCount > 0 Then
        For i = 0 To UBound(strPositions)
            str = str & strPositions(i) & vbCrLf
        Next
        
        MsgBox str, vbInformation
    End If
End Sub
 
Private Sub Form_Load()
    Dim i As Long
    
    ' Добавить в листбокс разные строки
    List1.AddItem "Яблоки"
    List1.AddItem "Персики"
    List1.AddItem "Апельсины"
    List1.AddItem "Груши"
    List1.AddItem "Бананы"
    
    List1.Selected(0) = True
    'List1.Sorted = True Если хотим сортировку то её нужно устанавливать изначально в IDE, в коде не хочет
    
    ReDim Preserve strPositions(List1.ListCount - 1)
    
    For i = 0 To UBound(strPositions) ' Все строки в листбоксе уже сами по себе отсортировались
        strPositions(i) = List1.List(i) ' Копируем все строки из листбокса в массив
    Next
End Sub