Dim MaxLength as integer  = 2147483647
			Dim s as new System.Text.StringBuilder
			Me.richTextBox.MaxLength = MaxLength
			For a As Integer = 0 To 100000
			  s.Append (a.toString())
			  If a Mod 10 = 0 Then
			    application.DoEvents 
			    me.Text = a.toString("N0")
			  End If
			Next
			me.richTextBox.Text = s.ToString()