texmgr.UnloadBitmap("tmp:/z"+photolist[0].GetName())
requestbm0 = CreateObject("roTextureRequest" , "tmp:/z"+photolist[10].GetName())
texmgr.RequestTexture(requestbm0)
msg=wait(0, texport)
if type(msg)="roTextureRequestEvent" then
if msg.GetState() = 3
bm0 = msg.GetBitmap()
end if
end if