Hello
Here is a simple example of a poor mans code profiler. This will help you to be able to determine the codes execution speed!
Hope this helps
1. Make 2 Methods in your App name them StartProfiler and StopProfiler
2. make 2 Date property's in your App name them StartSeconds and EndSeconds
App Methods
Sub App.StartProfiler()
StartSeconds = New Date
End Sub
Sub App.StopProfiler()
EndSeconds = New Date
Msgbox("Total(" + Format( Val(Str( EndSeconds.Second - StartSeconds.Second )) , "00" ) +") Seconds" )
End Sub
3. Call it like this
Call App.StartProfiler
'Code goes here
Call App.StopProfiler
Example Code:
===================================
Sub Buttons.Action()
ListBox1.DeleteAllRows
Call App.StartProfiler
For i As Integer = 1 to 5000
App.DoEvents(1)
Window1.ListBox1.AddRow Str(i)
Next
Call App.StopProfiler
End Sub