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