Public Property Get Sample1() As OLE_HANDLE Sample1 = ObjPtr(Me) End Property Public Property Let Sample1(ByVal v As OLE_HANDLE) End Property
Public Property Get Sample2() As OLE_HANDLE Sample2 = ObjPtr(Me) End Property Public Property Let Sample2(ByVal v As OLE_HANDLE) End Property '-------------------------------------