[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