Public ReadOnly Property Current As Object

Dim instance As VideoFormats
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 and it's video formats
  Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
  Dim videoformats As VideoFormats = capturectrl.VideoCaptureFormats

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

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

     ' enumerate through the list of formats
     ' demonstrating the current property
     For Each vf As VideoFormat In videoformats
       ' set the result to what we expect
       _result = (vf Is videoformats.Current)
     Next vf
  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 and it's video formats
   CaptureCtrl capturectrl = _form.CaptureCtrl;
   VideoFormats videoformats = capturectrl.VideoCaptureFormats;

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

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

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