Using cplProcess As Process = Process.Start("inetcpl.cpl") Threading.Thread.Sleep(5000) MsgBox(cplProcess.MainWindowTitle) End Using
Using cplProcess As Process = Process.Start("inetcpl.cpl") End Using Threading.Thread.Sleep(5000) For Each p As Process In Process.GetProcessesByName("rundll32.exe") If p.HasExited Then MsgBox("終了しました") Else MsgBox("終了していません") End If Next