[RESOLVED] set mouse icon code

[make me rain]

please advise regarding this 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

[LaVolpe]

Does the flexgrid accept bitmaps as the MouseIcon property? Probably not. If you remove your On Error Resume Next statement, you will probably generate the error that describes the problem instead of hiding/ignoring the problem.

[make me rain]

i had a try , condition 1 has worked fine
but else portion generated error 380

 '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
 'getting error here invalid property value "run time error 380"
 Set Me.MSHFlexGrid_LinkShower.MouseIcon = LoadPicture(App.Path & "/ic/nomouse.bmp")
 Me.LBL_LABEL.Visible = False
    End If
    End Sub

[LaVolpe]

Does the flexgrid accept bitmaps as the MouseIcon property? Probably not.

Use an icon not a bitmap.

[make me rain]

yes thanks for your kind advises
solved