' Benötigte API-Deklaration
Private Declare Sub CopyMemoryPtr Lib "kernel32" _
  Alias "RtlMoveMemory" ( _
  ByVal Destination As Long, _
  ByVal Source As Long, _
  ByVal Length As Long)

Public Sub ArrayDelete(ByRef nArray() As Integer, _
  ByVal nDelPos As Long)
 
  Dim nCount As Long
 
  ' Größe des Arrays bestimmen
  nCount = UBound(sArray)
 
  If nDelPos < nSize Then
    ' Element aus Array löschen und alle 
    ' nachfolgende Elemente nach vorne schieben
    CopyMemoryPtr VarPtr(nArray(nDelPos)), VarPtr(nArray(nDelPos + 1)), _
      VarPtr(nArray(nSize)) - VarPtr(nArray(nDelPos))
  End If
End Sub

If Array = Voll Then
  ArrayDelete myArray(), 0
  myArray(2559) = neuerWert
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de