Removing an array item. How hard?

[daydee]

chrisjk, I understand partly but any chance you could show me how to work it in my code?

I've tried this below but I get a Subscrit out of range error!

Private Sub Image2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Image2() As String
Dim NewArray() As String
Dim intCount As Long
 
If Button = 2 Then
intCount = 0
ReDim NewArray(UBound(Image2) - 1)
 
For thm = 0 To UBound(Image2)
    If thm <> Index Then
        NewArray(intCount) = Image2(thm)
        intCount = intCount + 1
    End If
Next thm
End If
End Sub