Duda con Shell

Pega este codigo el el formulario que inicia la aplicacion:

Shared Sub Main()
'Usamos la clase Process para sacar información de procesos en
ejecución.
'Definimos una matríz de procesos
Dim MisProcesos() As Process

'Asignamos a la matríz todos los procesos en ejecución
'que tengan por nombre el de nuestra aplicación.
MisProcesos =
Process.GetProcessesByName(Application.ProductName.ToString)

'MisProcesos.Length nunca es cero, porque
'este mismo proceso cuenta;
'por eso miramos si solo hay una coincidencia.

If MisProcesos.Length = 1 Then
'Ejecutamos nuestra aplicación. El formulario se llama Form1
Application.Run(New Form1)

Else 'Hay más de un proceso ejecutandose
MessageBox.Show("La Aplicación ya se está
ejecutando",,MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Application.Exit()
'Dim a As PrevInstance
'a.Activate()
End If

End Sub
"Francisco Birrer" escribió en el mensaje
news:

Hola a Todos

Abro una aplicación con el comando Shell, esto es al presionar un boton.

Como puedo enterarme si una aplicación está abierta o no. Porque cada vez
que presiono el botón se abre nuevamente la aplicación.

Necesito saber esto porque son muchos lo modulos que tendre que abrir con
el Shell.

Agradecería sugerencias

Francisco Birrer D.
Analista Programador
Exxis S. A.

Gracias