关于UserControl类型的使用问题

Private uc As UserControl



Private Sub UserControl_Click()

    Set uc = UserControl

End Sub

自制ActiveX用户控件时，运行以上代码，出现“使用基类名称无效”。
如何解决？
（注意uc的类型要为UserControl） 这么用恐怕不行, 请先说清楚你的最终目的是什么。

补充：VB ,  基础类