Public Overridable Function GetStillDIB( _
   ByVal timeOut As Integer _
) As IntPtr

Dim instance As PlayCtrl
Dim timeOut As Integer
Dim value As IntPtr
 
value = instance.GetStillDIB(timeOut)

public virtual IntPtr GetStillDIB( 
   int timeOut
)

public:
virtual IntPtr GetStillDIB( 
   int timeOut
) 

Public _result As Boolean = False
      Public _form As PlayCtrlForm = New PlayCtrlForm()
      Public Sub GetStillDIBExample()
         ' reference the capture control
         Dim playctrl As PlayCtrl = _form.PlayCtrl

         ' input file for capture
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi")

         Try
            Dim dib As IntPtr = playctrl.GetStillDIB(-1)
         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 void GetStillDIBExample()
      {
         // reference the capture control
         PlayCtrl playctrl = _form.PlayCtrl;

         // input file for capture
         string inFile =Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi");

         try
         {
            IntPtr dib = playctrl.GetStillDIB(-1);
         }
         catch (Exception)
         {
            _result = false;
         }
      }

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