我写的程序在运行中出现如上错误提示，事实上选择忽略后程序正常运行，如何让程序自动默认忽略选项。盼大虾帮助，谢谢

代码如下：（这段代码是写在菜单的过程当中的，我是想通过执行菜单实现实时的主窗品背景更换）
CLEAR all
CLOSE ALL
tp11=RAND(-1)
tp12=ROUND(tp11*70,0)
tp13=ALLTRIM(STR(tp12))+".jpg"
_screen.AddObject('Image1','Image')
  with _screen.Image1
    .width = _screen.width
    .height = _screen.height
    .visible = .t.
    .stretch = 2
    .anchor = 15
    .picture='&tp13'
  endwith

谢谢大家的回复

“要加入一个容器的成员对象与该容器中已有的成员同名。
在一个给定的容器中成员对象名称必须唯一。
回顾成员名。”

版主，如何添加成员对象时覆盖原有的同名成员而不报错，谢谢指教

3楼的大侠，如何屏蔽掉呀

CLEAR
CLOSE ALL
tp11=RAND(-1)
tp12=ROUND(tp11*70,0)
tp13=ALLTRIM(STR(tp12))+".jpg"
IF VarType(_Screen.Image1) != "O"
    _screen.AddObject('Image1','Image')
ENDIF
_screen.Image1.width = _screen.width
_screen.Image1.height = _screen.height
_screen.Image1.stretch = 2
_screen.Image1.anchor = 15
_screen.Image1.picture='&tp13'

通过上段代码已解决问题，谢谢各位