Shell("ipconfig", AppWinStyle.NormalFocus)

Imports System.Diagnostics
 
 
    Private Sub Button1_Click ...
 
        Dim p As New Process()
 
        p.StartInfo.FileName = "calc.exe"
 
        p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
 
        p.Start()
 
        p.WaitForExit()
 
        p.Close()
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist