100分请教关于自制控件的问题

Question

给控件添加一个Public 的过程，就成了控件的方法了

Answer 1

在窗体中申明：
Public Event CallFunc(Data As Variant)然后再要调用的地方：
RaiseEvent CallFunc(vt)在控件中申明:
Private WithEvents f As Form1然后写入事件处理:
Private Sub f_CallFunc(Data As Variant)
     YourFuncInControl Data
End Sub

Answer 2

public Function ObjFromlPtr(Byval lPtr as Long) as Object 
dim lObject as Object 
copymenoy lObject,byval lPtr,4 
set ObjFromlPtr=lObject 
end Function copymenoy 内存复制函数，在网吧上网，拼错了，自己查 APiView
在通用模块里面定义一个全局变量
Public m_lPrt as long在控件的初始化属性里面
m_lPtr=objptr(me)然后就可以在 Form 里面使用
Dim k as Control    'Control 是你的控件名称
set k=ObjFromlPtr(m_lptr)
就可以使用它的属性方法等....没钱了，ByeBye

Answer 3

多谢288794的帮忙
已调试通过
public  Function  ObjFromlPtr(Byval  lPtr  as  Long)  as  Object    
    dim  lObject  as  Object    
    copymenoy  lObject,lPtr,4    
    set  ObjFromlPtr=lObject    
    copymenoy  lObject,0&,4
end  Function    
Dim  k  as  Object