Private Class c
        Public i As Long
        Public Sub doit()
            i = i + 1
        End Sub
    End Class
 
    Public Sub tc()
        Dim i As Integer
        Dim c1 As Object = New c
 
        Dim st As Long = Environment.TickCount
        For i = 1 To 100000
            c1.doit()
        Next
        Dim ct As Long = Environment.TickCount - st
 
        Dim st1 As Long = Environment.TickCount
        For i = 1 To 5000000
            CType(c1, c).doit()
        Next
        Dim ct1 As Long = Environment.TickCount - st1
 
        Debug.WriteLine(ct.ToString() & " / " & ct1.ToString())
    End Sub

        Dim col As New System.Collections.ObjectModel.Collection(Of c)
        col.Add(New c)
 
        Dim st2 As Long = Environment.TickCount
        For i = 1 To 5000000
            col(0).doit()
        Next
        Dim ct2 As Long = Environment.TickCount - st2

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist