Подмена методов (свойств) класса

Private Declare Function GetMem4 Lib "msvbvm60" (pSrc As Any, pDst As Any) As Long
Private Const ICallNumber As Long = 0                         ' Номер метода по-порядку сверху
Private Const IDispatchSize As Long = &H1C&                   ' Размер таблицы IDispatch
 
Public Function ICall(Text As String) As Long                 ' Функция - которая ни разу не вызовется
End Function
 
Private Function GetAddress(Value As Long) As Long            ' Получить адрес из AddressOf
    GetAddress = Value
End Function
Private Sub Class_Initialize()
    Dim lpVtbl As Long, lpFnc As Long
    
    GetMem4 ByVal ObjPtr(Me), lpVtbl                          ' Получаем указатель на vTable
    lpFnc = GetAddress(AddressOf ICallFunction)
    GetMem4 lpFnc, ByVal lpVtbl + IDispatchSize + _
            ICallNumber * 4                                   ' Размер IDispatch и подменяем
 
End Sub

Public Function ICallFunction(ByVal pMe As clsCall, Text As String, Value As Long) As Long  ' Вот что вместо метода мы вызовем.
    MsgBox Text
End Function

Private Sub Form_Load()
    Dim z As clsCall
    
    Set z = New clsCall
    
    z.ICall "Мы подменили метод! Мы можем подменить его также у контролов," & vbNewLine & _
            "что позволит перехватывать вызовы методов контролов, и даже, " & vbNewLine & _
            "в некоторых случаях, поменять методы местами" & vbNewLine & _
            "также можем вызывать ассемблерные вставки без CallWindowProc," & vbNewLine & _
            "только нужно учитывать, что первым параметром идет указатель на Me," & vbNewLine & _
            "а последним на возвращаемое значение, вообще здесь есть где разгулятся!" & vbNewLine & _
            "by The trick"
 
End Sub