Visual Basic - NO FUNCIONA

HOLA SABES EJECUTO EL EJEMPLO PERO ME APARECE UN ERROR.
EN FindWindow
DICE
Error de compilación:

Procedimiento Sub o Function no definido.

pero yo lo tengo definido en un Modulo

¿?

lo que pasa es que necesito saber es como se cuando una aplicacion visual esta levantada me dieron un ejemplo pero no funciona de ma un error.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

coloque el ejemplo pero me da un error en esta parte

FindTitle = FindWindow("", "Calculadora")
If FindTitle = 0 Then MsgBox "Se encuentra cargada la calculadora"

FindWindow aqui da el error dice

Error de compilación:

Procedimiento Sub o Function no definido

siendo yo declaro la Function en un Modulo y todo pero esta malo.

Estás declarando la API en un módulo como Private y su alcance entonces será el de ese módulo en onde está declarado.
Si la invocás desde un form, va a desconocer la existencia de esa Declaración.
Para extender el alcance de tu declaración poné la API como Public.en un módulo BAS y así podrás invocarla de cualquier parte del Proyecto.
Igualmente si vas a utilizar la API pocas veces y en un Form determinado, Te conviene declararla en dicho Form como Privada y listo.

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long