[VB6] - Calling functions by pointer.

[xiaoyao]

ACTUAL VERSION IN 9 POST
Exploring the function VBA6 figured out a way to call functions the pointer.
It's simple. Declare a function prototype (void function), where the first argument will be further transferred to the function address. Next, do a patch, so he tossed to us at the address specified in the first parameter. Thus it is possible to call functions in the standard modules, class modules, forms, API-functions (eg obtained through LoadLibrary and GetProcAddress).* One note, run the project through Ctrl + F5. And working in the IDE and compiled form.
For "patching" the prototype I made a separate module:
[CODE]
' ?????? ?????? WinApi ??????? ?? ?????????
Public Sub Main()
Dim hUser As Long, hGDI As Long
Dim DC As Long

hUser = LoadLibrary("user32")
hGDI = LoadLibrary("gdi32")

PatchFunc "GetDC", AddressOf GetDC
PatchFunc "ReleaseDC", AddressOf ReleaseDC
PatchFunc "Ellipse", AddressOf Ellipse

If two modules have the same function, how to solve the problem of calling under IDE?
model1.bas
model2.bas
"GetDC", AddressOf GetDC

need use
PatchFunc "model2.GetDC", AddressOf model2.

 TipGetFunctionId hProj, StrPtr(FuncName), sId
        If sId = 0 Then MsgBox "Can't find function by name?" & FuncName: Exit Sub