ltmmCaptureCtrl.CameraControl Example for Visual Basic

Dim pCam As ltmmCameraControl
Dim lMin As Long
Dim lMax As Long
Dim lSteppingDelta As Long
Dim lDefault As Long
Dim lCapsFlags As Long
Dim lVal As Long
Dim lFlag As Long

Set pCam = LTMMCapture.CameraControl
pCam.GetRange ltmmCameraControl_Zoom, lMin, lMax, lSteppingDelta, lDefault, lCapsFlags
pCam.Get ltmmCameraControl_Zoom, lVal, lFlag
lVal = (lMax + lMin) / 2
pCam.Set ltmmCameraControl_Zoom, lVal, lFlag
Set pCam = Nothing