Const WM_MOUSEMOVE = &H200
Сообщение WM_MOUSEMOVE сообщает окну, что позиция курсора мыши была изменена(перемещена). Сообщение идентифицирует позицию курсора относительно окна, а также состояние клавиш и кнопок мыши. Нет необходимости создавать специальный дескриптор для сообщения WM_MOUSEMOVE. Событие MouseMove выполняет ту же работу, что и WM_MOUSEMOVE и проще в использовании
'Создайте на форме две кнопки Command1 и Command2
' вставьте в Command1_MouseМove строчку
' Command1.Caption = "Мышка сдвинулась"
' Вставьте код для кнопки Command2, чтобы Windows думала,
' что мышка сдвинулась внутри кнопки Command1
SendMessage Command1.hWnd, WM_MOUSEMOVE, ByVal CLng(0), ByVal 0