[VB6] - animated gif function errors:(

[joaquim]

i'm testing the disposal values:

TotalFrames = aImg.Count - 1
    LoadGif = True
    Load aImg(imgCount - 1)
    For i = 1 To TotalFrames
        If intDisposed(i) = 0 Then
            'do nothing
        ElseIf intDisposed(i) = 1 Then
            aImg(aImg.Count - 1).Picture = aImg(i - 1).Image
            Debug.Print TransparentBlt(aImg(aImg.Count - 1).hdc, 0, 0, aImg(i - 1).ScaleWidth, aImg(i - 1).ScaleHeight, aImg(i).hdc, 0, 0, aImg(i - 1).ScaleWidth, aImg(i - 1).ScaleHeight, GetPixel(aImg(i).hdc, 0, 0))
            aImg(i).Picture = aImg(aImg.Count - 1).Image
            aImg(aImg.Count - 1).Cls
        End If
    Next i
    aImg(aImg.Count - 1) = Nothing
    'Unload aImg.Count - 1
    Debug.Print aImg.Count - 1
    Exit Function

but i see some errors:
1 - the transparentblt() api function don't do the job(i think is the Load method), because i recive false;
2 - i can't unload the last image control that i create for these test
any advice my friend?
thanks