[VB] Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Load ' 自プロセスを取得 Dim currentProcess As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess() ' リフレッシュしないとプロセスの各種情報が最新情報に更新されない currentProcess.Refresh() ' 各種プロセス情報を出力する Console.WriteLine("プロセスID : {0}", currentProcess.Id) Console.WriteLine("プロセス名 : {0}", currentProcess.ProcessName) Con