[RESOLVED] i'm tryng clean a string without sucess:(

[joaquim]

heres my MouseIcon property:

Public Property Let MouseIcon(ByVal vNewValue As String)
    strMouseIcon = vNewValue
    If strMouseIcon = "" Then
        UserControl.MousePointer = 0
        RestoreLastCursor
        Exit Property
    End If
    If ValidMouse(UCase(strMouseIcon)) = False Then Exit Property
    If UCase(strMouseIcon) Like "*.ANI" = True Then
        If Ambient.UserMode = True Or blnEnter = True Then
            SaveLastCursor
            StartAnimatedCursor strMouseIcon
        End If
    Else
        If strMouseIcon <> "" Then
            UserControl.MousePointer = 99
            UserControl.MouseIcon = LoadPicture(strMouseIcon)
        Else
            RestoreLastCursor
            UserControl.MousePointer = 0
        End If
    End If
    PropertyChanged "MouseIcon"
End Property

and heres the module for work with animated cursors:

Option Explicit

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
    "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" _
    (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hcur As Long) As Long
Private Const OCR_NORMAL = 32512
Private mlngOldCursor As Long
Private lngNewCursor As Long

Public Sub SaveLastCursor()
    mlngOldCursor = CopyIcon(GetCursor())
End Sub

Public Sub StartAnimatedCursor(AniFilePath As String)
    lngNewCursor = LoadCursorFromFile(AniFilePath)
    SetSystemCursor lngNewCursor, OCR_NORMAL
End Sub

Public Sub RestoreLastCursor()    'Restore last cursor
    SetSystemCursor mlngOldCursor, OCR_NORMAL
End Sub

to be honestly my property is empty, but the strMouseIcon still having the valeu. sometimes i don't understand somethings.
can anyone explain to me what isn't right?
thanks