Option Explicit
Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private Sub Form_Load()
    Dim i As Integer
    Dim lStart As Long
 
    lStart = GetTickCount()
 
    Debug.Print "Laden"
    For i = 1 To 1000
'        Load Text1(i)
        Load sevText1(i)
    Next i
    Debug.Print "Dauer: " & (GetTickCount() - lStart) / 1000 & " Sekunden"
 
    For i = 1 To 1000
'        If Not Text1(i) Is Nothing Then
'            Unload Text1(i)
'        End If
        If Not sevText1(i) Is Nothing Then
            Unload sevText1(i)
        End If
    Next i
 
    Unload Me
End Sub

Mit freundlichen Gr??en
- Mediamed Systec GmbH -