[RESOLVED] about propertyies

[joaquim]

finally i resolve my problem...
thanks
i change something in timer event:

Private Sub tmrAnimation_Timer()
    If blnDestroyed = True Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    On Error GoTo erro
    If Animation = AnimationPause Or Animation = AnimationStopped Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    Const Transparency = (50 * 255) / 100 * &H10000
    If lngActualSubImage < PicAnimation.Count - 1 Then
        lngActualSubImage = lngActualSubImage + 1
    Else
        If Strip.Activate = True Then
            lngActualSubImage = 1
        Else
            lngActualSubImage = 0
        End If
    End If
    Set UserControl.Picture = Nothing
    UserControl.Cls
    If blnStretch = True Then
        StretchBlt UserControl.hdc, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight, PicAnimation(lngActualSubImage).hdc, 0, 0, PicAnimation(lngActualSubImage).Width, PicAnimation(lngActualSubImage).Height, vbSrcCopy
    ElseIf blnAlphaBlend = True Then
        AlphaBlend UserControl.hdc, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight, PicAnimation(lngActualSubImage).hdc, 0, 0, _
PicAnimation(lngActualSubImage).ScaleWidth, PicAnimation(lngActualSubImage).ScaleHeight, Transparency
    Else
        UserControl.Picture = PicAnimation(lngActualSubImage).Image
    End If
    Call SubTransparent
    RaiseEvent ChangeImage(lngActualSubImage)
    Exit Sub
erro:
    tmrAnimation.Enabled = False
    MsgBox Err.Description
End Sub

thanks