[RESOLVED] set mouse icon code

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

---

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.

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

Code:

---

'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

---

Quote:

---

Originally Posted by LaVolpe

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

---

Use an icon not a bitmap.

yes thanks for your kind advises
solved