Errores en Vb6

[JulioGGarcia]

Hola amigos. A ver si me podeis ayudar.

Tengo un pequeño código en Vb6. Es muy simple, se trata de colocar imágenes de una carpeta en un array de picturebox. La línea donde se insertan las imágenes es la siguiente:

Código:

Picture1(h).Picture = LoadPicture(FrmPrincipal.Archivo)

No sule haber ningún problema, pero a veces me da error: invalid picture. El caso es que no sé cómo gestionar el error, ya que si pongo:

Código:

If Err.Number=0 Then
Picture1(h).Picture = LoadPicture(FrmPrincipal.Archivo)
End If

no gestiona el error por estar antes de la línea que ejecuta el loadpicture.

Cómo podría resolver esto? Gracias por vuestras sugerencias.

[David]

Coloca On Error Resume Next (Si hay error, continuar a partir de línea siguiente) antes de ejecutar el LoadPicture y lo controles con el if justo en la línea siguiente.

[jaimejchs]

Prueba con esto a ver si te funciona

On Error GoTo errhandler
Picture1(h).Picture = LoadPicture(FrmPrincipal.Archivo)
errhandler:
Call MsgBox("Error al ejecutar", vbOKOnly, "Error")
MsgBox "Error", vbCritical
Exit Sub