ltmmVideoProcAmp.GetRange Example for Visual Basic

Private Sub mnVideoProcAmp_Click()
   Dim lMin As Long
   Dim lMax As Long
   Dim lSteppingDelta As Long
   Dim lDefault As Long
   Dim lCapsFlags As Long
   Dim lFlags As Long
   Dim lVal As Long
     
   If LTMMCapture.VideoProcAmp Is Nothing Then
      Exit Sub
   End If
   LTMMCapture.VideoProcAmp.GetRange ltmmVideoProcAmp_Brightness, lMin, lMax, lSteppingDelta, lDefault, lCapsFlags
   
   LTMMCapture.VideoProcAmp.Get ltmmVideoProcAmp_Brightness, lVal, lFlags
   
   If lVal + 10 > lMax Then
      lVal = lMax
   Else
      lVal = lVal + 10
   End If

   LTMMCapture.VideoProcAmp.Set ltmmVideoProcAmp_Brightness, lVal, ltmmVideoProcAmp_Flags_Manual

End Sub