防止重複執行

Dim ProcessName As String = Process.GetCurrentProcess.ProcessName
Dim runp As Process()
runp = Process.GetProcessesByName(ProcessName)
If runp.Length > 1 Then
'重複時,處理程序
End If