

'************************************************************************

Public Sub Button1_Click()
Dim StartTime As Float
Dim DiffTime As Float
Dim i As Integer

StartTime = Timer

For i = 1 To 1000
  Sqr(i)
Next

Print Sqr(i - 1)

DiffTime = Timer - StartTime
Print DiffTime * 1000; " msec"
  

End

