Mi sembra che tu abbia qualche informazione in più ora, comunque ti posto parte del codice:

Per Verifica l'esistenza, il nome del driver di acquisizione.
(listaDevices è una comboBox)
codice:
 Public Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
        ByVal cbVer As Integer) As Boolean

 Dim driverName As String = Space(100)
 Dim driverVer As String = Space(100)
 Dim esito As Boolean
 Dim x As Integer 
            Do
                esito = capGetDriverDescriptionA(x, driverName , 100, driverVer , 100)
                If esito Then listaDevices.Items.Add(driverName .Trim)
                x += 1
            Loop Until esito = False