출처 :: http://egloos.zum.com/xsylphid/v/5762837
'// -----------코드 1번-----------
Dim bCreated As Boolean
Dim mtx As New System.Threading.Mutex(True, "이름", bCreated)
If Not bCreated Then
MessageBox.Show("Program already started!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.ExitThread()
End If
'// -----------코드 2번-----------
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgBox("프로그램이 이미 실행중입니다!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, Me.Text)
End
End If