please advise regarding this code
HTML Code:
Private Sub MSHFlexGrid_LinkShower_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

 On Error Resume Next
 Me.MSHFlexGrid_LinkShower.MousePointer = flexCustom
 
 If Me.MSHFlexGrid_LinkShower.MouseCol = 1 Then
 Set Me.MSHFlexGrid_LinkShower.MouseIcon = LoadPicture(App.Path & "/ic/edit.ico")
 Me.LBL_LABEL.Visible = True
 
 'this portion of code working fine with if col = 1
 'but if col <> 1 then the loaded picture is not unloading
 'to load other picture
 
 Else
 
 Set Me.MSHFlexGrid_LinkShower.MouseIcon = LoadPicture(App.Path & "/ic/nomouse.bmp")
 Me.LBL_LABEL.Visible = False
    End If
    End Sub