Dim Mode As String = _
        IIf(chkRelease.Checked, "Release", "Debug")
        Dim proc As Process, sArguments As String
                        sArguments = _
                        "/rebuild " & Mode & " " & Chr(34) & drProj( _
                        "Proj_Path") & Chr(34) & " "
 
                        proc = New Process
                        proc = Process.Start("devenv.exe", sArguments)
                        Debug.WriteLine(drProj("Proj_Path"))
                        Do
                            Application.DoEvents()
                            If proc.HasExited Then Exit Do
                        Loop
                        proc.Close()
                        proc.Dispose()
                        proc = Nothing