Public Class Form1
 
 
 
	'To make this code work make sure you have a button called btnGetDevices and a listbox called lstCams
 
 
 
	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
 
 
 
	Private Sub LoadCams()
 
	Dim strName As String = Space(100)
 
	Dim strVer As String = Space(100)
 
	Dim bReturn As Boolean
 
	Dim x As Integer = 0
 
 
 
	' Load name of all avialable devices into the lstcams .
 
 
 
	Do
 
	' Get Driver name and version
 
	bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
 
	' If there was a device add device name to the list
 
	If bReturn Then lstcams.Items.Add(strName.Trim)
 
	x += 1
 
	Loop Until bReturn = False
 
	End Sub
 
 
 
	Private Sub btnGetDevices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetDevices.Click
 
	LoadCams()
 
	End Sub
 
	End Class