Dim sMyArray() As String
 
Private Sub RemoveItem(ByVal iIndex As Integer)
  On Error Resume Next
  Dim i As Integer
  If iIndex < LBound (sMyArray) Or iIndex > UBound(sMyArray) Then
    ' kein gültiger Index, wird auch angesprungen, falls Array nicht 
    ' dimensioniert
  Else
    ' alle Einträge eins vorrücken
    For i = iIndex To Ubound(sMyArray) - 1
      sMyArray(i) = sMyArray(i + 1)
    Next i
    ' Array redimensionieren
    Redim Preserve sMyArray(Ubound(sMyArray) - 1)
  End If
End Sub
 
Private Sub AddItem(ByVal sContent As String)
  On Error Resume Next
  If Uound(sMyArray) = -1 Then
    ' nicht dimensioniert
  Else
    Redim Preserve sMyArray(Ubound(sMyArray) + 1)
    sMyArray(Ubound(sMyArray)) = sContent
  End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.