Loop with an unknown end?

[SteveCRM]

Okay, I know this makes a loop go for 1000 whatevers.
Dim i as integer
For i = 1 to 1000
'all my code in here
Next i

But Im making an online game (almost done too :)) but I want a loop to keep send my coordinates to the other person, but I don't want to use a timer, because that defeats the purpose of using BitBlt. And I don't know how long each game is going to go on. Anyone got any ideas?

[Fox]

You have done a game without any idea how to do that? wow ;)

ok, heres the idea: Make a loop that runs all the time till you exit the program. There you can make timing with GetTickCount or something and send whatever all the time. Looks like this:


'Declares
Dim Active as Boolean

'Form_Load
Active = True
While Active = True
'Game comes here ;)

DoEvents
Wend
End

'Form_Unload
Active = False

[Fox]

(Don't forget to show the Form before running the loop ;))

[SteveCRM]

Thanks fox, I'll give it a try.

[SteveCRM]

Oh boy, I must be loosing it, the answers are so easy yet I never find them :(. Thanks fox! :)

[Fox]

no problem ;)