dim srcfilter as DirectShowBaseFilterMBS // your basefilter
dim value, flags as Integer
dim c as DirectShowAMCameraControlMBS = srcfilter.AMCameraControl
if c<>nil then
  
  c.Get(c.kPropertyZoom, value, flags)
  if c.Lasterror = 0 then
    MsgBox "Zoom: "+str(value)
  else
    MsgBox "Zoom: "+c.LasterrorMessage
  end if
  
  c.Get(c.kPropertyFocus, value, flags)
  if c.Lasterror = 0 then
    MsgBox "Focus: "+str(value)
  else
    MsgBox "Focus: "+c.LasterrorMessage
  end if
  
  c.Get(c.kPropertyExposure, value, flags)
  if c.Lasterror = 0 then
    MsgBox "Exposure: "+str(value)
  else
    MsgBox "Exposure: "+c.LasterrorMessage
  end if
  
end if

dim srcfilter as DirectShowBaseFilterMBS // your basefilter
dim value, flags as Integer
dim v as DirectShowAMVideoProcAmpMBS = srcfilter.AMVideoProcAmp
if v<>nil then
  v.Get(v.kPropertyHue, value, flags)
  if v.Lasterror = 0 then
    MsgBox "Hue: "+str(value)
  else
    MsgBox "Hue: "+v.LasterrorMessage
  end if
  
  v.Get(v.kPropertyBrightness, value, flags)
  if v.Lasterror = 0 then
    MsgBox "Brightness: "+str(value)
  else
    MsgBox "Brightness: "+v.LasterrorMessage
  end if
  
end if

dim filter as DirectShowBaseFilterMBS // your device filter

dim pn as DirectShowEnumPinsMBS = srcfilter.EnumPins

// loop over them and show names of pins
dim p as DirectShowPinMBS = pn.NextObject
while p <> nil
  dim name as string = p.Name
  
  MsgBox name
  
  p = pn.NextObject
wend

dim srcfilter as DirectShowBaseFilterMBS // your filter

srcfilter.ShowPropertyDialog
MsgBox "Result: "+Str(srcfilter.Lasterror)+": "+srcfilter.LasterrorMessage