Public ReadOnly Property Current As Object

Dim instance As TargetFormats
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

  Try
     ' set an audio device first, you should use your audio device name here
     If capturectrl.AudioDevices("USB") Is Nothing Then
       Throw New Exception("No USB audio device available")
     End If

     capturectrl.AudioDevices("USB").Selected = True

     ' reference the target formats collection
     Dim formats As TargetFormats = capturectrl.TargetFormats

     ' enumerate through the list of formats
     ' demonstrating the current property
     For Each af As TargetFormat In formats
       ' set the result to what we expect
       _result = (af Is formats.Current)
     Next af
  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;

   try
   {
      // set an audio device first, you should use your audio device name here
      if (capturectrl.AudioDevices["USB"] == null)
         throw new Exception("No USB audio device available");

      capturectrl.AudioDevices["USB"].Selected = true;

      // reference the target formats collection
      TargetFormats formats = capturectrl.TargetFormats;

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