Option Explicit

Dim tmr        As ctiming


Sub Test()

    Set tmr = New ctiming
    Dim LoopC As Long
    Dim LoopX As Long
    Dim dArray() As Long
    Dim segs As String
    ReDim dArray(1 To 1000) As Long
    For LoopX = 1 To 1000
        dArray(LoopX) = LoopX + 50
    Next LoopX
    tmr.Reset
    For LoopC = 1 To 1000000
        ReDim Preserve dArray(1 To 10000) As Long
    Next LoopC
    segs = tmr.sElapsed
    Text1.Text = segs

End Sub

Private Sub Command1_Click()
    Call Test
End Sub