Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Imports System.IO
Imports System.Security
Imports System.Collections
Imports System.Exception

Public Class frmCom_Utilities
  
    Inherits System.Windows.Forms.Form
    Private mProcess As Process

 Private Sub frmCom_Utilities_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim RunCmd As Process = New Process
        'Dim RunCmd As New Process

        RunCmd.StartInfo.FileName = "cmd.exe"
       RunCmd.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        RunCmd.EnableRaisingEvents = True
        AddHandler RunCmd.Exited, AddressOf Me.SendKeysTestExited

        Timer1.Enabled = True
        Timer1.Interval = 3000
        Timer1.Start()
        Me.LaunchedProcess = RunCmd
       
        RunCmd.Start()
        RunCmd.WaitForInputIdle(1000)

        If RunCmd.Responding Then
            System.Windows.Forms.SendKeys.Send("C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Bin\SDKVARS.BAT")
            System.Windows.Forms.SendKeys.SendWait("{ENTER}")
        Else
            RunCmd.Kill()
        End If

End Sub

Friend Sub SendKeysTestExited(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim myProcess As Process = DirectCast(sender, Process)
        Timer1.Stop()
        If Not myProcess Is Nothing Then
            MessageBox.Show("Cmd was closed, raising the Exited event at: " & myProcess.ExitTime & "." & _
                        System.Environment.NewLine & "Exit Code: " & myProcess.ExitCode)
        End If
        myProcess.Close()
    End Sub

Private Property LaunchedProcess() As Process
        Get
            Return mProcess
        End Get
        Set(ByVal Value As Process)
            mProcess = Value
        End Set

    End Property

end class

System.Windows.Forms.SendKeys.Send("[COLOR=Red]""[/COLOR]C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Bin\SDKVARS.BAT[COLOR=Red]""[/COLOR]")