我做了个抽奖工具，在自己的电脑上打包生成EXE安装后，运行一切正常，可是发送给朋友，在朋友的电脑上安装后运行时，弹出错误对话框：提示：运行时错误'380'无效属性值！再点确定就关闭程序了。请教高手指点，应该怎么解决？感激不尽！

贴上该代码，高手帮忙看下，应该怎么解决？在线等待回复！
Option Explicit
Option Base 1
Dim A() As Variant
Dim xyr As String

Private Sub Command1_Click()
  Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
  A = Array("常胜才", "夏彩虹", "杨鼎铭", "周  健", "周祥广", "朱志宏", "高永文", "孙黎明", "秦本斌", "承  亮", "王三叶", "宋  军", _
"傅时宏", "孙军军", "侯维华", "胡佳俊", "孙祖龙", "李  程", "解书海", "潘万明", "唐  兵", "徐必龙", "邢善欣", "孙维忠", "苏从宝", "范修军", _
"汪金华", "侯正红", "解彩侠", "杨  红", "张  奎", "喻  红", "金仁刚", "吴丽萍", "孙明友", "方其祥", "王德金", "谷代明", "苏元宏", "常久超", "刘安虎", _
"马文华", "王  芳", "冯志荣", "范旭刚", "端维涛", "张厚德", "吴长保", "张启迪", "王秀枝", "丁庆凤", "鲍中林", "王后胜", "孙爱华", "高道义", "许  华", _
"包青海", "袁  霞", "陶荣刚", "严  慧", "李  霞", "蒋  琴", "王思龙", "王春宝", "赵才艳", "耿基凤", "孔宪春", "王  凤", "徐华林", "常莎莎", "夏海县", _
"刘  新", "阮  莉", "吴  玲")
 Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  Randomize
  xyr = Int(UBound(A) * Rnd + 1)
  Text1.FontSize = 40
  Text1.FontName = "楷体_gb2312"
    Text1.Text = A(xyr)
  
End Sub

谢谢你的指点！不过我还没有验证是否就是这个错误引起的。