Kendi kameranizlami yoksa farklı bir kamera ilemi yapacaksiniz?

Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc WM_CAP_DRIVER_DISCONNECT 0& 0&)
startcap = False
End If
End Sub

Private Sub cmdVideoFormat_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc WM_CAP_DLG_VIDEOFORMAT 0& 0&)
End If
End Sub

'Bu kısım forma yazılacak
Dim hwdc As Long
Dim startcap As Boolean


PrivateSub cmdCapture_Click()
Dim temp As Long
Dim temp1 As Long
hwdc = capCreateCaptureWindow("Dixanta Vision System" ws_child Or ws_visible 0 0 320 240 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"kamera takılı değil veya Bulunamadı" vbCritical "UYARI"
EndIf

EndSub

'bu kısım module yazılacak (module oluşturmayı bilmeyenler belirtirse yardımcı olurum)
Global Const ws_child As Long = &H40000000
Global Const ws_visible As Long = &H10000000

Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long ByVal wMsg As Long ByVal wParam As Long ByVal lParam As Long) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal a As String ByVal b As Long ByVal c As Integer ByVal d As Integer ByVal e As Integer ByVal f As Integer ByVal g As Long ByVal h As Integer) As Long

Form a 3 tane command button 1 de picture kontrolu ekleyin. butonun birinin adını cmdCapture birini cmdClose diğerinide cmdVideoFormat olarak değiştirin.

Bu en azindan fikir oluşturur.