Visual Basic - Comprobar imagen en un imagelist

Dim li As ListImage

    On Error Resume Next

    Set li = Me.ImageList1.ListImages("Clave")

    If Err.Number <> 0 Then

        'la imagen no existe

        'retomar el control de errores y continuar

        On Error GoTo 0

    Else

        'la imagen existe

        'retomar el control de errores y continuar

        On Error GoTo 0

    End If