求助，VB6.0 出现实时错误429

我自己做了一个小程序，调用BarTender（一个条码打印软件）
之前这个程序还能运行，但是突然有一天软件就开始报错了！
（已经在：工程/引用里添加了BarTender9.4）

实时错误 429 ActiveX 部件不能创建对象
黄色为报错调试位置

很是纠结呀！求各位大虾救命呀！


代码如下：

 Dim btapp As BarTender.Application
 Dim btformat As BarTender.Format


Private Sub Command1_Click()
  Set btformat = btapp.Formats.Open("e:\test.btw")
End Sub

Private Sub Form_Load()
Set btapp = CreateObject("bartender.application")
    btapp.Visible = False
btformat.SetNamedSubStringValue "t", "1"
btformat.Close btPromptSave

End Sub

Private Sub Form_Unload(Cancel As Integer)
  btapp.Quit
End Sub
---------------------------

只有20分了，请各位帮下忙呀呀呀啊