This is the code I use to control the speed of my games and visual demos:
While DoEvents
If Speed < GetTickCount Then
Speed = GetTickCount + SP (var)
'my program'
End If
Wend
This is often too slow for what I need. What is a better way of doing this so it will run faster?

Spraky84