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?