Problema en manejo de errores

[Punchi]

Lo he probado de varias maneras, pero no me funciona...

Código:

On Error Resume Next
Picture1.Picture = LoadPicture(App.Path & "\logo.gif")
If Err Then
MsgBox ("Errorrrrrrrrrr")
End If

Código:

On Error GoTo error1
Picture1.Picture = LoadPicture(App.Path & "\logo.gif")

error1:
MsgBox ("Errorrrrrrrrrr")
Resume

Código:

Picture1.Picture = LoadPicture(App.Path & "\logo.gif")
On Error GoTo Error_Logo

Error_Logo:
If Err = 3 Then
mensaje = MsgBox("Imagen del logo no encontrada", vbExclamation)
Resume
Else
mensaje = MsgBox("XXXXXXXXXXXXXX", vbExclamation)
End If

Siempre me arroja (dentro de VB6):

---------------------------------------------------
Error '53' en tiempo de ejecucion:
No se ha encontrado el archivo 'C:\ [RUTA] \logo.gif"
---------------------------------------------------

Por supuesto que genero el error a proposito.
Que puedo hacer?

[reel]

A que te referies con "siempre dentro de VB"? A que no te captura el Error?, en el 3er caso es lógico que no te lo capture porque la sentencia On Error la tienes después de la línea en la cual sucede el error.

Saludes

[Punchi]

"Dentro de VB" me referia a que le daba al botoncito de "play" para ejecutar la aplicacion. GRAN ERROR !

Luego al compilarlo y ejecutarlo me funcionaba lo que queria