Erro em função captura por câmera

Caros, uso um módulo desenvolvido em vb/access que captura fotos da webcam salvando na tabela o caminho da foto.
Passei a obter mensagem de erro ao usar o módulo em outra máquina. Este módulo foi desenvolvido por um amigo aqui do fórum do qual não tenho obtido resposta por email quanto a este suporte daí estar pedindo auxílio dos colegas deste fórum.

no evento ao abrir do form;

Private Sub Form_Open(Cancel As Integer)
Dim lpszName As String * 100
Dim lpszVer As String * 100
Dim Caps As CAPDRIVERCAPS
capGetDriverDescriptionA 0, lpszName, 40, lpszVer, 40
lwndC = capCreateCaptureWindowA(lpszName, WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, 0, 0, 160, 120, Me.hwnd, 0)
SetWindowText lwndC, lpszName
capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback
capSetCallbackOnError lwndC, AddressOf MyErrorCallback
If capDriverConnect(lwndC, 0) Then
capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps)
capPreviewScale lwndC, True
capPreviewRate lwndC, 66
capPreview lwndC, True
ResizeCaptureWindow lwndC
End If
End Sub

Após a abrir o seletor da camera e ao a escolher mostra mensagem de erro interna OCORREU ERRO -> 418.

Tanto selecionando câmera do notebook como selecionando uma instalada (usb) dá a mesma mensagem

Comento que tenho o módulo rodando em outros dois notebooks, não sei se relevante mas cada notebook tem uma resolução/tamanho de tela diferente, ocasionalmente no notebook de tela menor só consigo usar a câmera USB.

Possuo conhecimentos básico em VB !

Caso algum colega aqui se interesse nesta ajuda e precise de outros dados estou pronto a fornecer as funções chamadas no script.

Agradeço a costumeira boa vontade dos colegas!

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Observe as regra 12 e por gentileza adeque o título da postagem!

Por orientação do moderador alterei a grafia do tópico!

amigo estou tentando fazer a mesma coisa, consegui fazer abrir a cam mas nao consigo copiar a imagem numa pasta do hd se puder me passar o modulo que faz isso ficarei agradecido abracos.

amigo no meu ta dando certo assim


Private Sub Form_Load()
Dim lpszName As String * 100
Dim lpszVer As String * 100
Dim Caps As CAPDRIVERCAPS
mCapHwnd = capCreateCaptureWindow("My Own Capture Window", 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, wm_cap_driver_connect, 0, 0
capGetDriverDescriptionA 0, lpszName, 50, lpszVer, 50
lwndC = capCreateCaptureWindowa(lpszName, WS_CAPTION Or WS_THICKFRAME Or ws_visible Or ws_child, 0, 0, 160, 120, Me.hwnd, 0)
SetWindowText lwndC, lpszName
capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback
capSetCallbackOnError lwndC, AddressOf MyErrorCallback
If capDriverConnect(lwndC, 0) Then
  capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps)
  capPreviewScale lwndC, True
  capPreviewRate lwndC, 66
  capPreview lwndC, True
  ResizeCaptureWindow lwndC
End If
If SendMessage(mCapHwnd, wm_cap_driver_connect, 0, 0) = 0 Then
   MsgBox ("Não foi detectada nenhuma WebCam"), vbInformation, "Rio Corais"
End If
End Sub



so que nao consigo e salvar uma foto dessa imagem que captura e jogar no hd se tiver alguma solucao

Bom dia;

estou fazendo um sistema muito simples de controle de acesso, porém gostaria de saber se é possível mostrar a imagem (através da câmera) do notebook quando a pessoa confirmar seu acesso;

Formulário tem os seguintes campos:

Matricula: (Campo texto onde o funcionário vai digitar sua matricula)
imagem: (preciso que apareça aqui imagem da câmera, pois quando o funcionário for digitar a matricula ele entenda que está sendo filmado)
botão de confirmação: ao clicar se possível tirar uma foto do colaborador e armazenar no banco (opcional)

preciso muito dessa ajuda!!!

Obrigado;

Att.

Joabe Sousa

Boa tarde, profjoabe
Não use o título para mensagem