The compiled OCX with binary compatibility crashes in the function CreateTreeView at the line CreateTreeView = CreateWindowEx(...)

Code:
Private Function CreateTreeView(hwndParent As Long, _
                                                    iid As Long, _
                                                    dwStyle As Long, _
                                                    dwExStyle As Long) As Long
   DebugToFile "CreateTreeView_Start"
  Dim rc As oleexp.RECT ' parent client rect
   Call GetClientRect(hwndParent, rc)
   DebugToFile "CreateTreeView_1"
  ' Create the TreeView control.
  CreateTreeView = CreateWindowEx(dwExStyle, WC_TREEVIEW, "", _
                                                dwStyle, 0, 0, rc.Right, rc.Bottom, _
                                            hwndParent, iid, App.hInstance, 0)
DebugToFile "CreateTreeView_End"

End Function
Debug values before CreateWindowEx:

Code:
dwStyle: 1350638121     
rc.Right: 297           
rc.Bottom: 340          
hwndParent: 3348196     
iid: 100                
App.hInstance: 285212672
Do you have any idea whats going on?