Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim m As Integer
 
        Dim n As TimeSpan = New TimeSpan(DateTime.Now.Ticks).Add(New TimeSpan( _
          0, 0, 10))
        Do
            m += 1
        Loop While TimeSpan.Compare(n, New TimeSpan(DateTime.Now.Ticks)) > 0
 
        MsgBox(m.ToString("#,##0"))
    End Sub