Мы с Вами укажем формат данных для мыши. Описание функции есть, смотрим реализацию.

Visual Basic

Private Sub Form_Load()
	Set objDirectX = New DirectX7
	Set dri = objDirectX.DirectInputCreate
	Set dmmouse = dri.CreateDevice("GUID_SysMouse")
	dmmouse.SetCooperativeLevel Form1.hWnd, DISCL_FOREGROUND Or DISCL_NONEXCLUSIVE
	dmmouse.SetCommonDataFormat DIFORMAT_MOUSE
End Sub

Visual C++

    .............
    hr=g_pMouse->SetCooperativeLevel(this->m_hWnd,DISCL_FOREGROUND | DISCL_NONEXCLUSIVE);
	
	if FAILED(hr) 
   { 
	     ASSERT(FALSE);
   }

   hr=g_pMouse->SetDataFormat(&c_dfDIMouse);

	if FAILED(hr) 
   { 
	     ASSERT(FALSE);
   }
	// Add "About..." menu item to system menu.
   .........

Шаг 11 - Реализуем SetDataFormat.

Visual Basic

Visual C++