我的组件为什么会出错？

我在vb中用class builder创建的class,有一个属性pp和方法mm

Private mvarpp As String 'local copy

Public Sub mm()
End Sub

Public Property Let pp(ByVal vData As String)
'used when assigning a value to the property, on the left side of an
assignment.
'Syntax: X.pp = 5
mvarpp = vData
End Property


Public Property Get pp() As String
'used when retrieving value of a property, on the right side of an
assignment.
'Syntax: Debug.Print X.pp
pp = mvarpp
End Property

编译成功，注册成功


================================================
在asp中如下调用时:

<%
set obj = server.createobject("project1.class1")

obj.mm()

%>

出现以下错误:



Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'mm'

/com/project1.asp，行17


请问是为什么?