VB Forum / COM / March 2008

Greetings,

when i call a function of a VB activeX DLL which interns call the VC++ MFC
DLL function, results in error .I am using the late binding to access the
ActiveX DLL from my VB application . Can you help me regarding this?

Run Time error Message displayed:
Run-time error '-2147417848(80010108)':
Method 'Add' of the object '_AddNumbers' failed'

If I use the early binding also result in
Runtime error’-2147221231(80040111)’
ClassFactory cannot supply requested class

I can able to directly access the MFC DLL function from my VB application .
But i need to call the function through the wrapper VB ActiveX DLL function.
Please help me.

(SimpleCalculator )VB ActiveX DLL code:

Option Explicit
Private Declare Function pstrGetHostName _
   Lib "C:\WINDOWS\system32\DLLExDEF.dll" _
   () As String

Public Function Add() As String
Dim strA As String
strA = pstrGetHostName()
Add = strA
End Function

VB Application Code:

Private Sub Command1_Click()
Dim obj As Object
Set obj = CreateObject("SimpleCalculator.AddNumbers")
Dim a As String
a = obj.Add()
MsgBox a
End Sub
 
Thank You,
Regards,
Mohamed Hanif KS