I need a little help with using VB to burn files to a CD (Unattended).

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpCommandString As String, ByVal lpReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim retval As Long
retval = mciSendString("set CDAudio door open", "", 0, 0)
MsgBox("Please insert a blank CD, and close the CD Tray")

End Sub

Public Class Form1
    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpCommandString As String, ByVal lpReturnString As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Uservalue As String
        Uservalue = SystemInformation.UserName

        Dim retval As Long
        retval = mciSendString("set CDAudio door open", "", 0, 0)

        MsgBox("Please insert a blank CD, and close the CD Tray" & vbCrLf & _
               "The process of burning the CD may take a few minutes", _
               MsgBoxStyle.OkOnly, "Click OK to Continue")

My.Computer.FileSystem.CopyDirectory("D:\Folder1\Folder2\Folder3\TestRun", _
"C:\Documents and Settings\" & Uservalue & _
"\Local Settings\Application Data\Microsoft\CD Burning", True)

        ’  (“Source Directory", "Destination Directory", True)
        ’   CD Burn Folder Directory is: "C:\Documents and Settings\" & Uservalue & _
        ’  "\Local Settings\Application Data\Microsoft\CD Burning"

    End Sub
  
End Class