Loop Until Timer > t + 0.5
I know there's going to be some guffaws from the gallery, but hey, I'm a newbie where graphics are concerned . . .
Okay, I searched to try to get a real basic example of bitblt but I couldn't find a basic enough example that I could paste in and see how it works and I didn't really know how to make a bunch of frames tacked on side by side in a single pic.
That being said, I tried this method:
Code:
Private Sub Command1_Click()
For a = 0 To 4
t = Timer
Do
DoEvents
If a > 0 Then pic(a - 1).Visible = False
Loop Until Timer > t + 0.5
Next a
End Sub
Why is it so damn slow? I thought Loop Until Timer > t + 0.5 would give me a pretty accurate 1/2 second frame rate.