Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        TextBox1.Multiline = True
        Dim p As New System.Diagnostics.Process
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.CreateNoWindow = True
        p.StartInfo.FileName = "ipconfig"
        p.Start()
        TextBox1.Text = p.StandardOutput.ReadToEnd
End Sub