Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
        Dim Number As Integer
        Dim Start, Finish, TotalTime As Double
        Number = "1"
        For i = 1 To 10
 
            ListBox1.Items.Add(Number)
            Number = Number + 1
            'MsgBox(i & " Number= " & Number)
 
            Start = Microsoft.VisualBasic.DateAndTime.Timer
            Finish = Start + 1
            Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish
            Loop
            TotalTime = Microsoft.VisualBasic.DateAndTime.Timer - Start
 
        Next i
 
 
    End Sub