how can you write CD in VB.net

first you have to download the Xpburncomponent.dll:

http://download.microsoft.com/download/6/9/c/69c5d1b7-e3ac-4986-99f1-0c55dc374d66/xpburn.msi

now you have to take three buttons on window form

in form.vb:

 Private Sub eject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ej As New XPBurn.XPBurnCD
        ej.Eject()


    End Sub



    Private Sub erase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim er As New XPBurn.XPBurnCD
        er.Erase(EraseKind.ekQuick)
    End Sub



    Private Sub burncd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim w As New XPBurn.XPBurnCD
        w.AddFile("C:\sh.dat", "sh.dat")
        w.RecordDisc(False, True)
    End Sub