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