哪位大侠能不能教我做ACTIVEX DLL,以及调用它,请给个示范?

Question

'新建一个类模块,将这段代码放到类模块里,然后编译成一个ActiveX Dll
Option ExplicitPrivate vText As String'类的方法
Public Sub ShowText()
    MsgBox vText
End Sub'类的属性
Public Property Get Text() As String
    Text = vText
End PropertyPublic Property Let Text(ByVal vNewValue As String)
    vText = vNewValue
End Property'下列代码放到窗体里
'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'    Author:吴文智
'      Date:2001-11-22
'Description:要试用本例请在窗体中填加 一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    '定义类变量
    Dim clsTest As Class1
    '建立类的实例
    Set clsTest = New Class1
    
    '使用类
    clsTest.Text = "阿木是小(...)"
    clsTest.ShowText
    
    '干掉类
    Set clsTest = Nothing
    
End Sub

Answer 1

就象foolishtiger(吴文智)说的啦。如果你期望自己写的sub或function被别人调用就将其声明成public，否则可以声明成private。