Описываем переменную устройства.

Dim dmmouse As DirectInputDevice
Dim objDirectX As DirectX7
Dim dri As DirectInput

Реализуем создания объекта устройства.

Private Sub Form_Load()
	Set objDirectX = New DirectX7
	Set dri = objDirectX.DirectInputCreate
	Set dmmouse = dri.CreateDevice("GUID_SysMouse")
End Sub

Visual C++

GUID устройств находиться в отдельной библиотеки, его необходимо подключить. Взять библиотеку можно из проекта.

#pragma comment(lib,"dxguid.lib")

Описываем переменную устройства.

class CDImputDlg : public CDialog
{
// Construction
public:
	CDImputDlg(CWnd* pParent = NULL);	// standard constructor
	IDirectInput* g_pDI;  
	IDirectInputDevice* g_pMouse;
// Dialog Data
.......
};

Реализуем создания объекта устройства.

BOOL CDImputDlg::OnInitDialog()
{
	CDialog::OnInitDialog();
	g_pDI       = NULL;
	g_pMouse    = NULL;
	HRESULT hr;
	hr = DirectInputCreate(AfxGetApp()->m_hInstance,
		DIRECTINPUT_VERSION, &g_pDI, NULL );
   
	if FAILED(hr) 
	{ 
		ASSERT(FALSE);
	}

	hr = g_pDI->CreateDevice( GUID_SysMouse, &g_pMouse, NULL );
	if FAILED(hr) 
	{ 
		ASSERT(FALSE);
	}
	..........
}