如何在代码中使用用户控件？！出现错误91

[fisheep_works]

Private WithEvents a As UC_a

使用UC_a中的函数时就出现实时错误'91'

如何解决呢？！

“set a = new UC_a”不行

[孤独剑_LPZ]

控件要先注册，然后在vb工程>部件里添加该控件>工具箱里拖该控件到窗体即可

[chinaboyzyq]

[Quote=引用楼主 fisheep_works 的回复:]
Private WithEvents a As UC_a

使用UC_a中的函数时就出现实时错误'91'

如何解决呢？！

“set a = new UC_a”不行
[/Quote]

Dim WithEvents a As VBControlExtender

Private Sub Command1_Click()
   ''添加用户控件Uctr1
   Set a = Controls.Add("工程1.UC_a", "Uctr1", Me) '按F2查看UC_a是在VB下(VB.UC_a)还是在当前工程下
   ''确定新增用户控件Uctr1的位置
   'a.Move Command1.Left + Command1.Width + 240, Command1.Top
   ''显示用户控件
   'a.Visible = True
   ''调用用户控件中的函数，如果只想使用用户控件中的函数前面可以Dim WithEvents a As UC_a这样声明
   MsgBox a.iFN(5, 5) '调用用户控件中的函数，此函数必须是用Public声明的
   Controls.Remove a '删除用户控件
   Set a = Nothing

End Sub

[fisheep_works]

呵呵，问题解决，谢谢

[fisheep_works]

Private WithEvents a As Timer

Private Sub Form_Load()

Set a = New Timer

a.Enabled = True
a.Interval = 1000

End Sub

也是同样的问题