vb.net 阻止程序重复启动 禁止多开

小爱

        If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
            MessageBox.Show("当前程序已处于运行状态!", "禁止运行 ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End If