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.
.........