Ciao a tutti
Sto realizzando un programma che acquisisce immagini dalla web-cam
L'inizializzazione viene effettuata attraverso queste righe (sempre che possano essere utili)

Function startcamera()

Dim temp As Long

hwdc = capCreateCaptureWindow("", ws_child Or ws_visible, 0, 0, 1280, 800, Picture1.hWnd, 0)

If (hwdc <> 0) Then
temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
StartCap = True
Else
MsgBox ("No Webcam found")
End If

End Function

nonostante la finestra venga impostata a 1280 x 800 (come si vede) la web-cam si ostina a lavorare con risoluzione nettamente più bassa. Anche facendo le impostazioni attraverso un altro programma prima di avviare il mio, non risolvo il problema.
Qualcuno ha un suggerimento per richiamare le impostazioni attraverso il codice?
Grazie a tutti

Buona Pasqua