Декларируем:
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Обращение к функции:
strPathToCursor - путь к файлу с вашим курсором ico или cur
Public Function SetMyCirsor(strPathToCursor As String)
Dim lngCursor As Long
lngCursor = LoadCursorFromFile(strPathToCursor)
lngCursor = SetCursor(lngCursor)
End Function
Можно например вызвать функцию Function SetMyCirsor из события MouseMove.
Private Sub MyButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetMyCursor "c:\MyCursor.cur"
End Sub
Ссылки по теме