Why doesn't this work? (source)

[MetalBoy]

Is there a better way of doing this? I like how this code SHOULD work, but it flashes boxes around the sprite (GIF file w/trransparency).

Help me please.


option Explicit
Dim CurFrame

private Sub tmrAnimate_Timer()
CurFrame = CurFrame + 1
If CurFrame = 7 then CurFrame = 0
NextFrameOfGuy (CurFrame)
Beep
End Sub

private Sub NextFrameOfGuy(FrameToShow as Integer)

If FrameToShow = 0 then
Image1(0).Visible = true
Image1(6).Visible = false
else
Image1(FrameToShow).Visible = true
Image1(FrameToShow - 1).Visible = false
End If

Image2.Picture = LoadPicture("C:\visual studio\vb98\diablo\warrior\view1#\" + Trim$(Str$(CurFrame + 1)) + ".gif")

End Sub