Originariamente inviato da spinter
potresti provare cosi'


Declare Function capGetDriverDescriptionA Lib "avicap32.dll" _
(ByVal wDriverIndex As Short, _
ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
ByVal cbVer As Integer) As Boolean

Private Sub ListVideoSources()
Dim DriverName As String = Space(80)
Dim DriverVersion As String = Space(80)
For i As Integer = 0 To 9
If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
lstVideoSources.Items.Add(DriverName.Trim)
End If
Next
End Sub

Private Sub Form1_Load

ListVideoSources()

End Sub
ciao,
allora diciamo che quanto descritto, riesce a rilevare solo "WDM", IO AD ESEMPIO ho collegato una telecamera sony, è questa così come descritta non mi viene rilevata.