VB.NET で二重起動防止

If Diagnostics.Process.GetProcessesByName( _
  Diagnostics.Process.GetCurrentProcess.ProcessName).Length > 1 Then
  MessageBox.Show("二重起動できません。")
  End
End If