Visual Basic - Visual 6 con XP y getmodulehandle

Hola, en mi aplicación con vb6, arranco primero un programa pequeño, q sirve para iniciar, y ejecuta un shell a la aplicación principal. Entonces, antes d lanzar el shell("Aplicacion principal",3), quiero saber que no se haya ejecutado previamente, con el código siguiente y no m funciona, y no sé pq. En teoria debería decirme si está en memoria la aplicación, pero no lo hace. ¿Dónde m equivoco? ¿hay otra manera de hacerlo?

public Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpmodule$) As Long
Public Declare Function GetModuleUsageA Lib "Kernel32" (ByVal hmodule%) As Integer

dim i as long

i = GetModuleHandleA("Aplicacion principal")
If i <> 0 Then
i = GetModuleUsageA(i)
If i Then End
End If

Muchísimas gracias por la ayuda