Dim processList() As Process

        processList = Process.GetProcessesByName("cmd")

        If IsProcessRunning("cmd") Then

              msgbox("   :")

        endif

   Public Function IsProcessRunning(ByVal name As String) As Boolean

        For Each clsProcess As Process In Process.GetProcesses()

            If clsProcess.ProcessName.StartsWith(name) Then

                Return True

            End If

        Next

        Return False

    End Function