Dim pid As Process
pid = Process.GetProcessById(1, "My-PC")
If pid.Start = True Then
MessageBox.Show("The Office Admin is already running!", "Warning !!!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button2)
e.Cancel = True
End If
End Sub