Sub Disconnect(ByRef nCaptureHandle As IntPtr, Optional ByRef nCameraID As _
      Integer = 0)
        SendMessage(nCaptureHandle, WM_CAP_DRIVER_DISCONNECT, nCameraID, 0)
 
        DestroyWindow(nCaptureHandle) 
    End Sub