Sub GetImageSize(slot, ByRef w, ByRef h)
Gets the Size of an image