Como iniciar a webcam em 160x120?

Saudações amigos,

Alguém poderia me dizer como iniciar a webcam com resolução de 160x120?

Tenho um formulário chamado de WEBCAM, por onde capturo as fotos para o formulário de clientes. O problema é que qdo inicio a webcam ela sempre inicia na resolução máxima, ou seja, 640x480. Implementei um botão que abre as opções da câmera (Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41), onde eu posso escolher dentre as várias resoluções disponíveis, mas gostaria de otimizar as ações para captura das fotos e descartar esse botão, fazendo com que a câmera já inicie em 160x120.

Alguém poderia me informar que código eu devo acrescentar?

Atualmente o código para ligar a webcam é esse:

Private Sub BTLIGAR_Click()

hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, 220, 161, PicWebCam.Form.hwnd, 0)
     
     
     If hCap <> 0 Then
       
       
       Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
       Call SendMessage(hCap, WM_CAP_SET_SCALE, True, 0)
       Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
       Call SendMessage(hCap, WM_CAP_SET_PREVIEW, 1, 0)
       
     

End If