access2010 SharedResources

Sub addImage()
    CurrentProject.AddSharedImage imgnamestring, fullpathstring
End Sub

Sub listResources()
Dim Srs As SharedResources
Dim Sr As SharedResource

    Set Srs = CurrentProject.Resources

    For Each Sr In Srs
        Debug.Print Sr.Name, Sr.Type
    Next
End Sub

Sub delResource()
Dim Srs As SharedResources
Dim Sr As SharedResource

    Set Srs = CurrentProject.Resources

    For Each Sr In Srs
        If Sr.Name = resourcenamestring Then Sr.Delete
    Next
End Sub