Dim s As New System.Diagnostics.ProcessStartInfo("net", "user")
            s.UseShellExecute = False
            Dim p As System.Diagnostics.Process = _
              System.Diagnostics.Process.Start(s)
            p.WaitForExit()