VB.NETですでにソフトが起動している場合さらに起動する多重起動を防止する方法です。

 '========================================
 ' 多重起動防止
 '========================================
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' プロセス名取得
		Dim Pname As String = System.Diagnostics.Process.GetCurrentProcess().ProcessName

        ' 同じプロセスがあるかチェック
  		If Diagnostics.Process.GetProcessesByName(Pname).Length > 1 Then
            ' すでにプログラムが起動している場合は閉じる
            Me.Close()
        End If