i found this demo
http://www.jose.it-berater.org/smffo...p?topic=4426.0
and i have modified oleexp.tlb to fit it
the code have one problem here
Function CreateTypeInfos(pctlib As ICreateTypeLib) As Long
Dim hr As Long
Dim wszText As String * 260 ' // General purpose variable
Dim ptlibStdOle As ITypeLib ' // ITypeLib reference pointer
Dim ptinfoIUnknown As ITypeInfo ' // ITypeInfo reference pointer
Dim ptinfoIDispatch As ITypeInfo ' // ITypeInfo reference pointer
Dim pctinfo As ICreateTypeInfo ' // ICreateTypeInfo reference pointer
Dim hreftype As Long ' // Reference type
wszText = "c:\windows\syswow64\stdole32.tlb"
Set ptlibStdOle = LoadTypeLib(wszText) 'Error 48: Load Dll Error
any suggestion how to fix it?
http://www.jose.it-berater.org/smffo...p?topic=4426.0
and i have modified oleexp.tlb to fit it
the code have one problem here
Quote:
Function CreateTypeInfos(pctlib As ICreateTypeLib) As Long
Dim hr As Long
Dim wszText As String * 260 ' // General purpose variable
Dim ptlibStdOle As ITypeLib ' // ITypeLib reference pointer
Dim ptinfoIUnknown As ITypeInfo ' // ITypeInfo reference pointer
Dim ptinfoIDispatch As ITypeInfo ' // ITypeInfo reference pointer
Dim pctinfo As ICreateTypeInfo ' // ICreateTypeInfo reference pointer
Dim hreftype As Long ' // Reference type
wszText = "c:\windows\syswow64\stdole32.tlb"
Set ptlibStdOle = LoadTypeLib(wszText) 'Error 48: Load Dll Error