主题：ft开发板的程序怎么让用户只能同时启动一个程序？

Dim pro As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()

        For Each p As System.Diagnostics.Process In pro

            If p.ProcessName = "foxtable" Then

                MessageBox.Show("已经打开了")

                Exit For

            End If

        Next