Public Function CreateDisc() As MediaWriterDisc

Dim instance As MediaWriterDrive
Dim value As MediaWriterDisc
 
value = instance.CreateDisc()

public MediaWriterDisc CreateDisc()

public:
MediaWriterDisc^ CreateDisc(); 

<Test> _
   Public Sub BurnDiscExample()
      Try
         Dim writer As MediaWriter = New MediaWriter()
         Dim drives As List(Of MediaWriterDrive) = writer.Drives
         Dim drive As MediaWriterDrive = drives(1)
         Dim disc As MediaWriterDisc = drive.CreateDisc()
         disc.VolumeName = "TEST DISC"
         disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles")

         drive.AutoEject = True

         AddHandler drive.OnProgress, AddressOf BurnProgress

         drive.LoadDisc()
         drive.BurnDisc(disc)

         ' wait loop for demonstration purposes
         Do While drive.State <> MediaWriterState.StateIdle
            System.Windows.Forms.Application.DoEvents()
            System.Threading.Thread.Sleep(10)
         Loop

         RemoveHandler drive.OnProgress, AddressOf BurnProgress

      Catch ex As Exception
         Assert.Fail("Test Failed: " & ex.Message)
      End Try
   End Sub

   Public Sub BurnProgress(ByVal sender As Object, ByVal evt As MediaWriterProgressEventArgs)
      System.Diagnostics.Debug.WriteLine(evt.ToString())
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void BurnDiscExample()
   {
      try
      {
         MediaWriter writer = new MediaWriter();
         List<MediaWriterDrive> drives = writer.Drives;
         MediaWriterDrive drive = drives[1];
         MediaWriterDisc disc = drive.CreateDisc();

         disc.VolumeName = "TEST DISC";
         disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles");

         drive.AutoEject = true;

         drive.OnProgress += BurnProgress;

         drive.LoadDisc();

         // BurnDisc starts
         drive.BurnDisc(disc);

         // wait loop for demonstration purposes
         while (drive.State != MediaWriterState.StateIdle)
         {
            System.Windows.Forms.Application.DoEvents();
            System.Threading.Thread.Sleep(10);
         }

         drive.OnProgress -= BurnProgress;
      }
      catch (Exception ex)
      {
         MessageBox.Show("Test Failed: " + ex.Message);
      }
   }

   public void BurnProgress(Object sender, EventArgs evt)
   {
      System.Diagnostics.Debug.WriteLine(evt.ToString());
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}