[VB6] - animated gif function errors:(

[joaquim]

i all most put the "vampire bed" gif animation working
my problem is: why the picturebox show us the big frame on back(speaking on 1st frame)(when changes from method 2 or 3 to method 1)?

 Case 0, 1   ' Leave
                    aimg(aimg.Count - 1).Cls
                    If fraFrame(i - 1).GCGraphicControl.Disposal = 2 Then
                        BitBlt aimg(aimg.Count - 1).hdc, fraFrame(i).IDImageDescription.FrameLeft, fraFrame(i).IDImageDescription.FrameTop, aimg(i - 1).ScaleWidth, aimg(i - 1).ScaleHeight, aimg(i - 1).hdc, 0, 0, vbSrcCopy
                    Else
                        BitBlt aimg(aimg.Count - 1).hdc, 0, 0, aimg(i - 1).ScaleWidth, aimg(i - 1).ScaleHeight, aimg(i - 1).hdc, 0, 0, vbSrcCopy
                    End If
                    If fraFrame(i).GCGraphicControl.TransparentFlag <> 0 Then
                        TransparentBlt aimg(aimg.Count - 1).hdc, fraFrame(i).IDImageDescription.FrameLeft, fraFrame(i).IDImageDescription.FrameTop, _
                            aimg(i).ScaleWidth, aimg(i).ScaleHeight, aimg(i).hdc, 0, 0, aimg(i).ScaleWidth, aimg(i).ScaleHeight, fraFrame(i).GCGraphicControl.TransparentColorIndex
                    Else
                        BitBlt aimg(aimg.Count - 1).hdc, fraFrame(i).IDImageDescription.FrameLeft, fraFrame(i).IDImageDescription.FrameTop, _
                            aimg(i).ScaleWidth, aimg(i).ScaleHeight, aimg(i).hdc, 0, 0, vbSrcCopy
                    End If
                    aimg(i).Cls
                    aimg(i).Picture = aimg(aimg.Count - 1).Image
                    aimg(aimg.Count - 1).Cls

for me, these draw bug don't makes since