Управлять курсором формы можно и динамически. Давайте создадим форму с двумя кнопками по нажатию на которые будет производиться смена курсора.

Теперь код к ним, мы воспользуется свойствами формы.

' VB Sample Code

Private Sub Command2_Click()

	MouseIcon = LoadPicture("3dgarro.cur")

	MousePointer = 99

End Sub



Private Sub Command3_Click()

	MouseIcon = LoadPicture("AcadDWTAssoc.ico")

	MousePointer = 99

End Sub

Мы сделали все то же самое что и в ручную, установили картинку из файла и свойство произвольный курсор, теперь при нажатии на кнопки будет происходить смена курсора на форме, если есть необходимость изменять курсор на только над кнопкой то все то же самое. Напишем код смены курсора над второй кнопкой.

' VB Sample Code

Private Sub Command3_Click()

	Command3.MouseIcon = LoadPicture("AcadDWTAssoc.ico")

	Command3.MousePointer = 99

End Sub

И теперь после нажатия на кнопку курсор над ней изменится.