Dim p As New Process()
 
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.Arguments = "/k " & e.UserState & " -u xxxxxxx -pyyyyyyy"
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
 
p.Start()
p.WaitForExit()

Dim p As New Process()
 
p.StartInfo.FileName = "ping.exe"
p.StartInfo.Arguments = "vbarchiv.net"
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
 
p.Start()
MessageBox.Show(p.StandardOutput.ReadToEnd)