Public ReadOnly Property Current As Object

Dim instance As Compressors
Dim value As Object
 
value = instance.Current

public object Current {get;}

public:
property Object^ Current {
   Object^ get();
}

Public _result As Boolean = False
Public _form As CaptureCtrlForm = New CaptureCtrlForm()
Public Sub CurrentExample()
   ' reference the capture control 
   Dim capturectrl As CaptureCtrl = _form.CaptureCtrl

   ' set a video device first, you should use your video device name here
   If capturectrl.VideoDevices("Analog") Is Nothing Then
      Throw New Exception("No Analog video tuner device available")
   End If

   capturectrl.VideoDevices("Analog").Selected = True

   ' reference the video compressors
   Dim compressors As Compressors = capturectrl.VideoCompressors

   Try
      ' enumerate through the list of compressors
      ' demonstrating the current property
      For Each cmp As Compressor In compressors
         ' set the result to what we expect
         _result = (cmp Is compressors.Current)
      Next cmp
   Catch e1 As Exception
      _result = False
   End Try
End Sub

public bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void CurrentExample()
{
   // reference the capture control 
   CaptureCtrl capturectrl = _form.CaptureCtrl;

   // set a video device first, you should use your video device name here
   if (capturectrl.VideoDevices["Analog"] == null)
      throw new Exception("No Analog video tuner device available");

   capturectrl.VideoDevices["Analog"].Selected = true;

   // reference the video compressors
   Compressors compressors = capturectrl.VideoCompressors;

   try
   {
      // enumerate through the list of compressors
      // demonstrating the current property
      foreach (Compressor cmp in compressors)
      {
         // set the result to what we expect
         _result = (cmp == compressors.Current);
      }
   }
   catch (Exception)
   {
      _result = false;
   }
}