[kslawy]

السلام عليكم ورحمة الله وبركاته

كود :

Private objForm As Form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If Check_IDMan() = True Then
            objForm = New Form
            objForm.Show()
        End If


    End Sub




    Private Function Check_IDMan() As Boolean
        Try
            Dim ProcessName As String = "IDMan"
            Dim ProcessesCollection() As Process = Process.GetProcessesByName(ProcessName)
            If ProcessesCollection.Count > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

****
***
**
*