Mavr, можно тебе вопрос?

А как в Access'е какому-нибудь контролу назначить свой курсор???
С TreeView разобрался: большое спасибо!

В том же примере с TreeView можешь посмотреть, там есть разделитель между TreeView и табличной частью, в которой отображаются товары из выбранной в каталоге папки. Когда указатель мыши наводится на этот разделитель (сделаный из прямоугольника), то курсор мыши изменятся на вот такой: -||-, подсказывая ползователю, что он может потянуть за этот разделить меняя ширину каталога и табличной части.

Курсоры загружаются там из msaccess.exe, благо его описатель получить без проблем, т.к. во время выполнения его экземпляр естественно загружен в память в рамках твоего процесса и получить его описатель можно спомщью API функции:

Declare Function apiGetModuleHandle Lib 'Kernel32' _
Alias 'GetModuleHandleA' (ByVal lpModuleName As String) As Long

Hinst = apiGetModuleHandle('MSACCESS.EXE')

Затем от туда загружаются нужные курсоры:

Declare Function apiLoadCursor Lib 'user32' _
Alias 'LoadCursorA' (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

CursG = apiLoadCursor(Hinst, 260)
260 - номер ресурса в msaccess.exe, я его посмотрел с помощью VC++, можно так же загружать системные курсоры, тогда первый парметр оставляешь нулевым, а второй должен укзывать номер системного курсора:

Const IDC_WAIT = 32514&

CursG = apiLoadCursor(0, IDC_WAIT)

Потом ты можешь устанавливать загруженный курсор с помощью, например в событии контрола MouseMove:

Declare Function apiSetCursor Lib 'user32' _
Alias 'SetCursor' (ByVal hCursor As Long) As Long

Private Sub MyControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Prevcurs = apiSetCursor(CursG)
End Sub

Prevcurs = apiSetCursor(CursG) - функция устанавливает загруженный курсор и возвращает индентификатор курсора, который был до установки, что бы потом ты мог возвратить нормальный курсор.
Теперь когда указатель мыши будет наводится на MyControl курсор будет менятся.

Можно так же использовать для загрузки курсора вместо LoadCursor:

Declare Function apiLoadCursorFromFile Lib 'user32' Alias 'LoadCursorFromFileA' (ByVal lpFileName As String) As Long
Загружает курсор из файлов .CUR (простые курсоры) .ANI (анимационные курсоры).

Глюк какой-то в TreeView: не отображаются мои иконки из ImageList. Все перепробовал, перерыл - ничего нет. Даже исли твой ImageList вставить на форму и назначить TreeView, то абсолютно тоже самое. Встречался когда-нибудь с таким??

Да, еще можно добавить, что в режиме конструктора иконки отображаются! А если все-таки вся эта конструкция будет работать, treeview позволяет разным уровням назначать свои иконки?

Вроде получил доступ ко всем свойствам treeview'а, разобрался с картинками. Но вот нигде не могу найти index текущего чилдрена!
Есть ли вообще таковой? Есть у парента сво-йство: всего чилдренов, а текущего - нет!