该如何为自已做的控件添加方法呀！

Question

用属性向导。
WriteProperty 方法
      将要保存的数值写入 PropertyBag 类对象。语法object.WriteProperty(DataName, Value[, DefaultValue])WriteProperty 方法的语法包含下面部分：部分 描述 
object 对象表达式，其值为“应用于”列表中的对象。 
DataName 字符串表达式，它代表要放入属性包的数据值。 
Value 要保存到属性包中的数据值。 
DefaultValue 数据的缺省值。 
说明WriteProperty 方法将在属性包中写入数据值，并将此数据值与 DataName 中的字符串值关联。当调用 ReadProperty 方法从属性包中检索保存的数据值时，将使用这个字符串值来访问数据值。注意 指定缺省值能够减少属于控件容器的文件大小。只有在要写入的值与缺省值不同时，才将属性行写入文件。在可能的情况下，初始化、保存和检索属性值时都应为控件的属性指定缺省值。

Answer 1

Event ItemClick(Number As Long, Item As Long)

Answer 2

与自定义函数一样
public sub ss()
end sub