VB.NET怎么启动CMD.exe，并向其发送字符串

VB.NET如何启动CMD.exe，并向其发送字符串？
VB.net应用程序，点Button1启动CMD.exe，点Button2，把Form1上的TextBox1内容发送给该CMD命令窗口。

请教高手，如何实现？

[解决办法]
输入重定向
dim P as processstartinfo
p.filename="cmd.exe"
p.red..input=true
p.start


点button2
p.writeline(textbox1.text)
[解决办法]
给你一个完整的列子,
界面上需要两个按钮,两个textbox,其中textbox2设置为多行.

VB.NET code

Public Class Form1    '输入和输出重定向,使用说明:先点击button1,    '然后在textbox1中输入dos命令,    '然后点击button2即可在textbox2中接收到信息    '例如ping 127.0.0.1    Dim P As New Process    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        P.StartInfo.FileName = "cmd.exe"        P.StartInfo.UseShellExecute = False        P.StartInfo.RedirectStandardInput = True        P.StartInfo.RedirectStandardOutput = True        P.StartInfo.RedirectStandardError = True        P.StartInfo.CreateNoWindow = True        P.Start()    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        P.StandardInput.WriteLine("@" & TextBox1.Text)        P.StandardInput.WriteLine("@exit")   '此句必须有,否则读取不到输出的信息        TextBox2.Text = P.StandardOutput.ReadToEnd()        P.Close()    End SubEnd Class