'snippet of FPS code
Sub Process_Globals
Dim time As Timer
End Sub
Sub Globals
'fps variables
Dim frameCount As Int
Dim oldTime,FPS As Long
End Sub
Sub Activity_Create(FirstTime As Boolean)
time.Initialize("Timer1",10)
End Sub
Sub Activity_Resume
time.Enabled=True
End Sub
Sub Activity_Pause (UserClosed As Boolean)
time.Enabled=False
End Sub
Sub Timer1_Tick
'
' DO DRAWING STUFF
'
' FPS monitor
If DateTime.Now>oldTime Then
oldTime=DateTime.now+1000
FPS=frameCount : frameCount=0
Else
frameCount=frameCount+1
End If
somelabel.Text="FPS:" & FPS
End Sub