<code lang="csharp">' *********************************************************

''' FIRST BLOCK
Imports System.Collections.Specialized
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Threading

Public Class MainForm

    Private _str As StringCollection
    Private _sw As New Stopwatch
    Private _intRegex As Regex
    Private _floatRegex As Regex


    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.DocumentText = "This application demonstrates the difference between <b><code>Parse</code></b>, <b><code>TryParse</code></b>, <b><code>Char Arrays</code></b> and <b><code>Regex</code></b>" & _
            " for converting datatypes from strings. <b><code>TryParse</code></b> is new to .NET 2.0 and avoids throwing exceptions when converting. " & _
            "<p>Adjust the number of strings, success rate, regex values to use, and which routines should be run, then click the Run button to begin.</p>" & _
            "<p>Checking the Optimize Char Array checkbox will optimize the char array routine by making it jump " & _
            "out of the for each loop on the first occurence of a non-numeric value in the string instead of evaluating " & _
            "all values.</p>"
    End Sub

    Private Sub BadDataFill()
        Dim successPercent As Integer = CInt(SuccessRateNumericUpDown.Text)
        If successPercent >= 100 Then Return

        Dim s As String = ""
        Dim r As New Random(Environment.TickCount)

        For i As Integer = 0 To _str.Count - 1
            If r.Next(1, 100) > successPercent Then
                For j As Integer = 1 To r.Next(4, 9)
                    s = s + Chr(r.Next(97, 123))
                Next
                _str(i) = s
            End If
        Next

    End Sub

    Private Sub NumberFill()
        Dim r As New Random(Environment.TickCount)
        _str = New StringCollection
        For i As Integer = 1 To CInt(StringCountNumericUpDown.Text)
            _str.Add(CStr(r.Next(1, 1000)))
        Next
        BadDataFill()
    End Sub

    Private Sub DateTimeFill()
        Dim r As New Random(Environment.TickCount)
        _str = New StringCollection
        For i As Integer = 1 To CInt(StringCountNumericUpDown.Text)
            _str.Add(DateTime.Now.ToString)
        Next
        BadDataFill()
    End Sub

    Private Function Int32ParseRoutine() As Long
        Dim i As Integer
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            Try
                i = Int32.Parse(s)
            Catch ex As Exception
            End Try
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function Int32TryParseRoutine() As Long
        Dim i As Integer
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If Int32.TryParse(s, i) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function Int32RegexRoutine() As Long
        ' Dim reg As New Regex(IntegerRegexTextBox.Text)
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If _intRegex.IsMatch(s) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function Int32CharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Char.IsDigit(c) Then
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function OptimizedInt32CharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Not Char.IsDigit(c) Then
                    Exit For
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DecimalParseRoutine() As Long
        Dim d As Decimal
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            Try
                d = Decimal.Parse(s)
            Catch ex As Exception
            End Try
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DecimalTryParseRoutine() As Long
        Dim d As Decimal
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If Decimal.TryParse(s, d) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DecimalRegexRoutine() As Long
        ' Dim reg As New Regex(FloatRegexTextBox.Text)
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If _floatRegex.IsMatch(s) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds

    End Function

    Private Function DecimalCharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Char.IsDigit(c) Then
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function OptimizedDecimalCharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Not Char.IsDigit(c) Then
                    Exit For
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function SingleParseRoutine() As Long
        Dim d As Single
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            Try
                d = Single.Parse(s)
            Catch ex As Exception
            End Try
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function SingleTryParseRoutine() As Long
        Dim d As Single
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If Single.TryParse(s, d) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function SingleRegexRoutine() As Long
        ' Dim reg As New Regex(FloatRegexTextBox.Text)
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If _floatRegex.IsMatch(s) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function SingleCharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Char.IsDigit(c) Then
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function OptimizedSingleCharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Not Char.IsDigit(c) Then
                    Exit For
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DoubleParseRoutine() As Long
        Dim d As Double
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            Try
                d = Double.Parse(s)
            Catch ex As Exception
            End Try
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DoubleTryParseRoutine() As Long
        Dim d As Double
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If Double.TryParse(s, d) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DoubleRegexRoutine() As Long
        ' Dim reg As New Regex(FloatRegexTextBox.Text)
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            If _floatRegex.IsMatch(s) Then
            Else
            End If
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function DoubleCharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Char.IsDigit(c) Then
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Function OptimizedDoubleCharArrayRoutine() As Long
        Dim _strChars() As Char
        _sw = Stopwatch.StartNew()
        For Each s As String In _str
            s.Replace(",", "").Replace(".", "")
            _strChars = s.ToCharArray()
            For Each c As Char In _strChars
                If Not Char.IsDigit(c) Then
                    Exit For
                Else
                End If
            Next
        Next
        _sw.Stop()
        Return _sw.ElapsedMilliseconds
    End Function

    Private Sub RunButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunButton.Click
        Cursor = Cursors.WaitCursor

        WebBrowser1.DocumentText = ""

        Dim sb As New System.Text.StringBuilder
        Dim parseTime As Long
        Dim tryParseTime As Long
        Dim regexParseTime As Long
        Dim charArrayParseTime As Long

        Dim useParse As Boolean = UseTryCheckBox.Checked
        Dim useTryParse As Boolean = UseTryParseCheckBox.Checked
        Dim useCharArray As Boolean = UseCharArrayCheckBox.Checked
        Dim useRegex As Boolean = UseRegexCheckBox.Checked
        Dim useOptimizedCharArray As Boolean = UseOptimizeCharArrayCheckBox.Checked

        ' regex data
        _intRegex = New Regex(IntegerRegexTextBox.Text)
        _floatRegex = New Regex(FloatRegexTextBox.Text)

        sb.Append("<table width='400px'>")
        sb.Append("<tr><td><b>Datatype</b><td><b>Parse</b><td><b>TryParse</b><td><b>CharArray</b><td><b>Regex</b>")

        NumberFill()
        sb.Append("<tr><td><code>Int32</code>")
        If useParse Then parseTime = Int32ParseRoutine()
        If useTryParse Then tryParseTime = Int32TryParseRoutine()
        If useCharArray Then
            If useOptimizedCharArray Then
                charArrayParseTime = OptimizedInt32CharArrayRoutine()
            Else
                charArrayParseTime = Int32CharArrayRoutine()
            End If
        End If
        If useRegex Then regexParseTime = Int32RegexRoutine()
        sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime))

        NumberFill()
        sb.Append("<tr><td><code>Decimal</code>")
        If useParse Then parseTime = DecimalParseRoutine()
        If useTryParse Then tryParseTime = DecimalTryParseRoutine()
        If useCharArray Then
            If useOptimizedCharArray Then
                charArrayParseTime = OptimizedDecimalCharArrayRoutine()
            Else
                charArrayParseTime = DecimalCharArrayRoutine()
            End If
        End If
        If useRegex Then regexParseTime = DecimalRegexRoutine()
        sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime))

        NumberFill()
        sb.Append("<tr><td><code>Single</code>")
        If useParse Then parseTime = SingleParseRoutine()
        If useTryParse Then tryParseTime = SingleTryParseRoutine()
        If useCharArray Then
            If useOptimizedCharArray Then
                charArrayParseTime = OptimizedSingleCharArrayRoutine()
            Else
                charArrayParseTime = SingleCharArrayRoutine()
            End If
        End If
        If useRegex Then regexParseTime = SingleRegexRoutine()
        sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime))

        NumberFill()
        sb.Append("<tr><td><code>Double</code>")
        If useParse Then parseTime = DoubleParseRoutine()
        If useTryParse Then tryParseTime = DoubleTryParseRoutine()
        If useCharArray Then
            If useOptimizedCharArray Then
                charArrayParseTime = OptimizedDoubleCharArrayRoutine()
            Else
                charArrayParseTime = DoubleCharArrayRoutine()
            End If
        End If
        If useRegex Then regexParseTime = DoubleRegexRoutine()
        sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime))

        sb.Append("</table>")
        WebBrowser1.DocumentText = sb.ToString

        Cursor = Cursors.Arrow
    End Sub

    Private Function TimeResult(ByVal parseTime As Long, ByVal tryParseTime As Long, ByVal charArrayParseTime As Long, ByVal regexParseTime As Long) As String
        Return "<td><span style='color:red'>" & parseTime & " ms</span><td>" & tryParseTime & "ms</span><td>" & charArrayParseTime & "ms</span><td>" & regexParseTime & "ms"
    End Function

    Private Sub CloseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseButton.Click
        Me.Close()
    End Sub
End Class




' ************************************************************
''' SECOND BLOCK
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class MainForm
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.CloseButton = New System.Windows.Forms.Button
        Me.RunButton = New System.Windows.Forms.Button
        Me.SuccessRateNumericUpDown = New System.Windows.Forms.NumericUpDown
        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.StringCountNumericUpDown = New System.Windows.Forms.NumericUpDown
        Me.Label5 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.IntegerRegexTextBox = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.FloatRegexTextBox = New System.Windows.Forms.TextBox
        Me.UseTryCheckBox = New System.Windows.Forms.CheckBox
        Me.UseTryParseCheckBox = New System.Windows.Forms.CheckBox
        Me.UseCharArrayCheckBox = New System.Windows.Forms.CheckBox
        Me.UseRegexCheckBox = New System.Windows.Forms.CheckBox
        Me.UseOptimizeCharArrayCheckBox = New System.Windows.Forms.CheckBox
        CType(Me.SuccessRateNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.StringCountNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'CloseButton
        '
        Me.CloseButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CloseButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.CloseButton.Location = New System.Drawing.Point(592, 441)
        Me.CloseButton.Margin = New System.Windows.Forms.Padding(4)
        Me.CloseButton.Name = "CloseButton"
        Me.CloseButton.Size = New System.Drawing.Size(100, 28)
        Me.CloseButton.TabIndex = 0
        Me.CloseButton.Text = "Close"
        '
        'RunButton
        '
        Me.RunButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.RunButton.Location = New System.Drawing.Point(484, 441)
        Me.RunButton.Margin = New System.Windows.Forms.Padding(4)
        Me.RunButton.Name = "RunButton"
        Me.RunButton.Size = New System.Drawing.Size(100, 28)
        Me.RunButton.TabIndex = 1
        Me.RunButton.Text = "Run"
        '
        'SuccessRateNumericUpDown
        '
        Me.SuccessRateNumericUpDown.Location = New System.Drawing.Point(461, 15)
        Me.SuccessRateNumericUpDown.Margin = New System.Windows.Forms.Padding(4)
        Me.SuccessRateNumericUpDown.Name = "SuccessRateNumericUpDown"
        Me.SuccessRateNumericUpDown.Size = New System.Drawing.Size(77, 22)
        Me.SuccessRateNumericUpDown.TabIndex = 5
        Me.SuccessRateNumericUpDown.Value = New Decimal(New Integer() {100, 0, 0, 0})
        '
        'WebBrowser1
        '
        Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.WebBrowser1.Location = New System.Drawing.Point(17, 108)
        Me.WebBrowser1.Margin = New System.Windows.Forms.Padding(4)
        Me.WebBrowser1.Name = "WebBrowser1"
        Me.WebBrowser1.Size = New System.Drawing.Size(675, 325)
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(547, 17)
        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(49, 16)
        Me.Label2.TabIndex = 10
        Me.Label2.Text = "percent"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(16, 17)
        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(110, 16)
        Me.Label3.TabIndex = 11
        Me.Label3.Text = "Attempt to convert"
        '
        'StringCountNumericUpDown
        '
        Me.StringCountNumericUpDown.Location = New System.Drawing.Point(144, 15)
        Me.StringCountNumericUpDown.Margin = New System.Windows.Forms.Padding(4)
        Me.StringCountNumericUpDown.Maximum = New Decimal(New Integer() {999999, 0, 0, 0})
        Me.StringCountNumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
        Me.StringCountNumericUpDown.Name = "StringCountNumericUpDown"
        Me.StringCountNumericUpDown.Size = New System.Drawing.Size(77, 22)
        Me.StringCountNumericUpDown.TabIndex = 12
        Me.StringCountNumericUpDown.Value = New Decimal(New Integer() {10000, 0, 0, 0})
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(219, 16)
        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(0, 0)
        Me.Label5.TabIndex = 13
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(229, 17)
        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(208, 16)
        Me.Label6.TabIndex = 14
        Me.Label6.Text = "string values with a success rate of"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(18, 47)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(88, 16)
        Me.Label1.TabIndex = 16
        Me.Label1.Text = "Integer Regex"
        '
        'IntegerRegexTextBox
        '
        Me.IntegerRegexTextBox.Location = New System.Drawing.Point(112, 44)
        Me.IntegerRegexTextBox.Name = "IntegerRegexTextBox"
        Me.IntegerRegexTextBox.Size = New System.Drawing.Size(210, 23)
        Me.IntegerRegexTextBox.TabIndex = 17
        Me.IntegerRegexTextBox.Text = "^([-+]?\d+)$"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(397, 47)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(77, 16)
        Me.Label4.TabIndex = 18
        Me.Label4.Text = "Float Regex"
        '
        'FloatRegexTextBox
        '
        Me.FloatRegexTextBox.Location = New System.Drawing.Point(480, 44)
        Me.FloatRegexTextBox.Name = "FloatRegexTextBox"
        Me.FloatRegexTextBox.Size = New System.Drawing.Size(212, 23)
        Me.FloatRegexTextBox.TabIndex = 19
        Me.FloatRegexTextBox.Text = "^([-+]?\d+\.?\d*)$"
        '
        'UseTryCheckBox
        '
        Me.UseTryCheckBox.AutoSize = True
        Me.UseTryCheckBox.Checked = True
        Me.UseTryCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
        Me.UseTryCheckBox.Location = New System.Drawing.Point(18, 81)
        Me.UseTryCheckBox.Name = "UseTryCheckBox"
        Me.UseTryCheckBox.Size = New System.Drawing.Size(87, 20)
        Me.UseTryCheckBox.TabIndex = 21
        Me.UseTryCheckBox.Text = "Use Parse"
        '
        'UseTryParseCheckBox
        '
        Me.UseTryParseCheckBox.AutoSize = True
        Me.UseTryParseCheckBox.Checked = True
        Me.UseTryParseCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
        Me.UseTryParseCheckBox.Location = New System.Drawing.Point(109, 81)
        Me.UseTryParseCheckBox.Name = "UseTryParseCheckBox"
        Me.UseTryParseCheckBox.Size = New System.Drawing.Size(110, 20)
        Me.UseTryParseCheckBox.TabIndex = 22
        Me.UseTryParseCheckBox.Text = "Use Try Parse"
        '
        'UseCharArrayCheckBox
        '
        Me.UseCharArrayCheckBox.AutoSize = True
        Me.UseCharArrayCheckBox.Checked = True
        Me.UseCharArrayCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
        Me.UseCharArrayCheckBox.Location = New System.Drawing.Point(225, 80)
        Me.UseCharArrayCheckBox.Name = "UseCharArrayCheckBox"
        Me.UseCharArrayCheckBox.Size = New System.Drawing.Size(114, 20)
        Me.UseCharArrayCheckBox.TabIndex = 23
        Me.UseCharArrayCheckBox.Text = "Use Char Array"
        '
        'UseRegexCheckBox
        '
        Me.UseRegexCheckBox.AutoSize = True
        Me.UseRegexCheckBox.Checked = True
        Me.UseRegexCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
        Me.UseRegexCheckBox.Location = New System.Drawing.Point(345, 80)
        Me.UseRegexCheckBox.Name = "UseRegexCheckBox"
        Me.UseRegexCheckBox.Size = New System.Drawing.Size(91, 20)
        Me.UseRegexCheckBox.TabIndex = 24
        Me.UseRegexCheckBox.Text = "Use Regex"
        '
        'UseOptimizeCharArrayCheckBox
        '
        Me.UseOptimizeCharArrayCheckBox.AccessibleRole = System.Windows.Forms.AccessibleRole.None
        Me.UseOptimizeCharArrayCheckBox.AutoSize = True
        Me.UseOptimizeCharArrayCheckBox.Location = New System.Drawing.Point(551, 81)
        Me.UseOptimizeCharArrayCheckBox.Name = "UseOptimizeCharArrayCheckBox"
        Me.UseOptimizeCharArrayCheckBox.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.UseOptimizeCharArrayCheckBox.Size = New System.Drawing.Size(141, 20)
        Me.UseOptimizeCharArrayCheckBox.TabIndex = 26
        Me.UseOptimizeCharArrayCheckBox.Text = "Optimize Char Array"
        '
        'MainForm
        '
        Me.AcceptButton = Me.RunButton
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.CancelButton = Me.CloseButton
        Me.ClientSize = New System.Drawing.Size(708, 476)
        Me.Controls.Add(Me.UseOptimizeCharArrayCheckBox)
        Me.Controls.Add(Me.UseRegexCheckBox)
        Me.Controls.Add(Me.UseCharArrayCheckBox)
        Me.Controls.Add(Me.UseTryParseCheckBox)
        Me.Controls.Add(Me.UseTryCheckBox)
        Me.Controls.Add(Me.FloatRegexTextBox)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.IntegerRegexTextBox)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.StringCountNumericUpDown)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.WebBrowser1)
        Me.Controls.Add(Me.SuccessRateNumericUpDown)
        Me.Controls.Add(Me.RunButton)
        Me.Controls.Add(Me.CloseButton)
        Me.Margin = New System.Windows.Forms.Padding(4)
        Me.Name = "MainForm"
        Me.Text = "TryParse Benchmark"
        CType(Me.SuccessRateNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StringCountNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents CloseButton As System.Windows.Forms.Button
    Friend WithEvents RunButton As System.Windows.Forms.Button
    Friend WithEvents SuccessRateNumericUpDown As System.Windows.Forms.NumericUpDown
    Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents StringCountNumericUpDown As System.Windows.Forms.NumericUpDown
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents IntegerRegexTextBox As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents FloatRegexTextBox As System.Windows.Forms.TextBox
    Friend WithEvents UseTryCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents UseTryParseCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents UseCharArrayCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents UseRegexCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents UseOptimizeCharArrayCheckBox As System.Windows.Forms.CheckBox
End Class
</code>
Datatype	Parse	TryParse	CharArray	Regex") NumberFill() sb.Append("
`Int32`") If useParse Then parseTime = Int32ParseRoutine() If useTryParse Then tryParseTime = Int32TryParseRoutine() If useCharArray Then If useOptimizedCharArray Then charArrayParseTime = OptimizedInt32CharArrayRoutine() Else charArrayParseTime = Int32CharArrayRoutine() End If End If If useRegex Then regexParseTime = Int32RegexRoutine() sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime)) NumberFill() sb.Append("
`Decimal`") If useParse Then parseTime = DecimalParseRoutine() If useTryParse Then tryParseTime = DecimalTryParseRoutine() If useCharArray Then If useOptimizedCharArray Then charArrayParseTime = OptimizedDecimalCharArrayRoutine() Else charArrayParseTime = DecimalCharArrayRoutine() End If End If If useRegex Then regexParseTime = DecimalRegexRoutine() sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime)) NumberFill() sb.Append("
`Single`") If useParse Then parseTime = SingleParseRoutine() If useTryParse Then tryParseTime = SingleTryParseRoutine() If useCharArray Then If useOptimizedCharArray Then charArrayParseTime = OptimizedSingleCharArrayRoutine() Else charArrayParseTime = SingleCharArrayRoutine() End If End If If useRegex Then regexParseTime = SingleRegexRoutine() sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime)) NumberFill() sb.Append("
`Double`") If useParse Then parseTime = DoubleParseRoutine() If useTryParse Then tryParseTime = DoubleTryParseRoutine() If useCharArray Then If useOptimizedCharArray Then charArrayParseTime = OptimizedDoubleCharArrayRoutine() Else charArrayParseTime = DoubleCharArrayRoutine() End If End If If useRegex Then regexParseTime = DoubleRegexRoutine() sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime)) sb.Append("