Public Sub InitializeCommandSet( _
   ByVal commandType As DicomCommandType, _
   ByVal request As Boolean _
) 

Dim instance As DicomDataSet
Dim commandType As DicomCommandType
Dim request As Boolean
 
instance.InitializeCommandSet(commandType, request)

public void InitializeCommandSet( 
   DicomCommandType commandType,
   bool request
)

public:
void InitializeCommandSet( 
   DicomCommandType commandType,
   bool request
) 

Public Sub TestCommandSet()
   'Make sure to initialize the DICOM engine, this needs to be done only once 
   'In the whole application
   DicomEngine.Startup()

   Dim ds As DicomDataSet = New DicomDataSet()
   Using (ds)
      ds.InitializeCommandSet(DicomCommandType.CFind, True)
      Debug.Assert(ds.InformationCommand = DicomCommandType.CFind)
      Debug.Assert(ds.IsRequestCommand = True)

      Dim ds1 As DicomDataSet = New DicomDataSet()
      Using (ds1)
         ds1.Copy(ds, Nothing, Nothing)
      End Using

   End Using

   DicomEngine.Shutdown()
End Sub

public void TestCommandSet()
{
   //Make sure to initialize the DICOM engine, this needs to be done only once 
   //In the whole application
   DicomEngine.Startup();
   using (DicomDataSet ds = new DicomDataSet())
   {
      ds.InitializeCommandSet(DicomCommandType.CFind, true);
      Debug.Assert(ds.InformationCommand == DicomCommandType.CFind);
      Debug.Assert(ds.IsRequestCommand == true);
      using (DicomDataSet ds1 = new DicomDataSet())
      {
         ds1.Copy(ds, null, null);
      }
   }
   DicomEngine.Shutdown();
}