Easy Benchmark function

    Public Function Benchmark(ByVal Method As Action, Optional ByVal iterations As Integer = 1) As Long
        Dim t As Stopwatch = Stopwatch.StartNew
        For i = 1 To iterations : Method.Invoke : Next
        t.Stop()
        Return t.ElapsedMilliseconds
    End Function