[Aly El-Haddad]

من بعد أذنكم جميعاً
أخي أستبدل كود Form1 بالكود التالي (طبعاً مع أستبدال كذا.exe بأسم البرنامج)

كود :

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Do Until IsProcessRunning("كذا.exe") = False
            If MessageBox.Show("Please close كذا.exe before opening this program.", "Error!", MessageBoxButtons.OKCancel, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Cancel Then
                End
            End If
        Loop
    End Sub


    Public Function IsProcessRunning(ByVal processName As String) As Boolean
        Dim Prc As Process() = Process.GetProcesses()
        processName = processName.Replace(".exe", "")
        Dim running As Boolean = False
        For Each P As Process In Prc
            If P.ProcessName = processName Then
                running = True
                Exit For
            End If
        Next
        Return running
    End Function
End Class