Public Overridable Sub ToggleClosedCaptioning() 

Dim instance As PlayCtrl
 
instance.ToggleClosedCaptioning()

public virtual void ToggleClosedCaptioning()

public:
virtual void ToggleClosedCaptioning(); 

Public _result As Boolean = False
      Public _form As PlayCtrlForm = New PlayCtrlForm()
      Public _playctrl As PlayCtrl
      Public Sub ClosedCaptioningExample()
         ' reference the capture control
         _playctrl = _form.PlayCtrl

         ' input file names
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "VIDEO_TS.IFO")

         Try
            ' turn off auto start
            _playctrl.AutoStart = False

            ' use DVD source
            _playctrl.UseDVDSource = True

            ' set the allowed stream types
            _playctrl.AllowedStreams = StreamFormatType.AudioVideoCC

            ' set the source file
            _playctrl.SourceFile = inFile

            ' check if closed captioning is enabled
            If _playctrl.ClosedCaptioning = False Then
               ' try to toggle closed captioning 
               _playctrl.ToggleClosedCaptioning()
            End If

            ' if closed captioning is available
            If _playctrl.ClosedCaptioning Then
               ' set the result
               _result = True
            End If

            ' start the playback
            _playctrl.Run()

            ' we'll loop on the state and pump messages for this example.
            ' but you should not need to if running from a Windows Forms application.
            Do While _playctrl.State = PlayState.Running
               Application.DoEvents()
            Loop
         Catch e1 As Exception
            _result = False
         End Try
      End Sub

Public NotInheritable Class LEAD_VARS
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media"
End Class

public bool _result = false;
      public PlayCtrlForm _form = new PlayCtrlForm();
      public PlayCtrl _playctrl;
      public void ClosedCaptioningExample()
      {
         // reference the capture control
         _playctrl = _form.PlayCtrl;

         // input file names
         string inFile =Path.Combine(LEAD_VARS.MediaDir,"VIDEO_TS.IFO");

         try
         {
            // turn off auto start
            _playctrl.AutoStart = false;

            // use DVD source
            _playctrl.UseDVDSource = true;

            // set the allowed stream types
            _playctrl.AllowedStreams = StreamFormatType.AudioVideoCC;

            // set the source file
            _playctrl.SourceFile = inFile;

            // check if closed captioning is enabled
            if (_playctrl.ClosedCaptioning == false)
            {
               // try to toggle closed captioning 
               _playctrl.ToggleClosedCaptioning();
            }

            // if closed captioning is available
            if (_playctrl.ClosedCaptioning)
            {
               // set the result
               _result = true;
            }

            // start the playback
            _playctrl.Run();

            // we'll loop on the state and pump messages for this example.
            // but you should not need to if running from a Windows Forms application.
            while (_playctrl.State == PlayState.Running)
               Application.DoEvents();
         }
         catch (Exception)
         {
            _result = false;
         }
      }

static class LEAD_VARS
{
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media";
}