VB.NET下怎么控制多个摄像头？

如题：VB.NET下怎么控制多个摄像头？
用如下方法只能列出一个摄像头
Private Sub LoadDeviceList()
        Dim strName As String = Space(100)
        Dim strVer As String = Space(100)
        Dim bReturn As Boolean
        Dim x As Integer = 0
        Do
            bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
            If bReturn Then lstDevices.Items.Add(strName.Trim)
            x += 1
        Loop Until bReturn = False
    End Sub
而用：SendMessage(hHwnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0)          '选择摄像头
缺能显示两个摄像头？
我想让程序自动选择。 --------------------编程问答-------------------- 我也想知道，线程控制行不行？？ --------------------编程问答-------------------- 我也想知道！！

补充：.NET技术 ,  VB.NET