Set WshShell = CreateObject( "WScript.Shell" )
strCommand1 = " mode con: cols=120 "
strCommand2 = " set PATH=%windir%\Microsoft.NET\Framework\v2.0.50727;%PATH% "
strCommand3 = " prompt vb.net$G"
strCommand = "cmd.exe /k" & strCommand1
strCommand = strCommand & "&" & strCommand2
strCommand = strCommand & "&" & strCommand3
Call WshShell.Run( strCommand, 3 )

ECHO OFF
vbc.exe %1

ECHO OFF
vbc /t:winexe /main:Form1 /out:app %1 %2