COM

Public Class Class1    
    Public Sub callMagicDLL(ByRef input As Integer, ByRef output As Integer)
        Dim myownClass As New CallWithMain()
        myownClass.Main()
    End Sub
End Class

Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices

Public Class CallWithMain

    Dim a As Integer
    Dim b As Integer

    <STAThread()> _
    Sub Main()
        Dim mymagicdll As New magic.magic       'Com object
        Dim a As Integer = 1
        Dim b As Integer = 1
        mymagicdll.magicdll(a, b)
    End Sub

End Class

Option Strict Off
Option Explicit On

Imports com.tibco.matrix.clr
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Xml.Serialization

Namespace www.example.com.com.tibco.amx.sample.helloworld.simple.java.soa

    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.1433"), _
     WebServiceInterface(MethodParameters:="InputMsg", PortTypeName:="HelloWorldPT", PortTypeNamespace:="http://www.example.com/com.tibco.amx.sample.helloworld.simple.java.soa/", WSDLLocation:="HelloWorld_HelloWorldPT.wsdl")> _
    Public Interface IHelloWorldPT

        '''<remarks/>    
        <System.Web.Services.WebMethodAttribute()> _
        Function sayHello(<System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://ns.tibco.com/Hello/")> ByVal HelloRequest As String) As String
    End Interface
End Namespace

Imports com.tibco.matrix.clr

Namespace ActiveMatrixComponent1
    <ServiceImplementation()> Public Class HelloWorld_HelloWorldPTImpl
        Implements www.example.com.com.tibco.amx.sample.helloworld.simple.java.soa.IHelloWorldPT

        Dim log As System.Diagnostics.TraceSource

        Public Sub New()
            log = Funcs.ts
        End Sub

        Public Function sayHello(ByVal HelloRequest As String) As String Implements www.example.com.com.tibco.amx.sample.helloworld.simple.java.soa.IHelloWorldPT.sayHello

            Dim a1 As Integer = 1
            Dim b1 As Integer = 2

            Dim dllWrapper As New CallingMagicDLLWrapper.Class1
            dllWrapper.callMagicDLL(a1, b1)

            Return "dot net : " & Trim(Convert.ToString(b1))

        End Function
    End Class
End Namespace

CallServiceImpl: Unable to cast COM object of type 'magic.magicClass' to interface type 'magic.Dmagic'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{F1556D77-4488-489D-8B1F-53FC0F7AC312}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).; on machine = DHN00807

int a = 5;
int b = 6;            
int sum = 0;
double sumDouble = 0;
sumdll.sumdllClass sdc = new sumdll.sumdllClass();
sumDouble = sdc2.sumdll(ref a, ref b, ref sum);

Unable to cast COM object of type 'sumdll.sumdllClass' to interface type 'sumdll.Dsumdll'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{3DC9FCBA-9E72-49AA-B597-F9B2603D5EEA}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).

sumdll.sumdllClass sdc = new sumdll.   
	Dsumdll  		which is an interface
	Sumdll		which is an interface
	sumdllClas		which is a class

sumDouble = sdc2.sumdll(
			ref int input1, ref int input2, ref @input)

HRESULT hr = CoInitialize(0);		//CoCreateInstance(		SCRIPTOBJLib::IScriptObjPtr sobj;		//sobj->QueryInterface(IId_,void* &vp);		//HRESULT hRes = CComObject<CScriptObj>::CreateInstance(&sobj);		//CreateInstance(NULL,IID_IUnknown,(void*)&vp);		//HRESULT hres = sobj.CreateInstance  ( __uuidof(SCRIPTOBJLib::IScriptObj) );		//HRESULT hres = sobj.CreateInstance("ScriptObj 1.0 Type Library");		//at this point i am getting the error		sobj->SetLanguage((unsigned short *)"VBScript");		CoUninitialize();