Visual Basic

Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.ArgumentException
Imports Microsoft.Office.Interop

Public Class Installer1

    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Install(stateSaver)

        Dim targetDir = Me.Context.Parameters.Item("targetdir")
        targetDir = targetDir.Substring(0, targetDir.Length - 1)
        MsgBox(targetDir)

        Dim myScript = targetDir + "MySuperAddin.xll"
        MsgBox(myScript)

        Dim objAddin As Object
        Dim objEXL As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application)

        objEXL.Workbooks.Add()
        Try

            objAddin = objEXL.AddIns.Add(myScript, True)
            objAddin(myScript).Installed = True

        Catch ex As Exception
            MsgBox("cannot open addin. /n Error: " + ex.Message)
Err_Handler:
            MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
        End Try
        objAddin = Nothing
        objEXL.Quit()
        objEXL = Nothing
    End Sub
End Class

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.Ansi, Pack:=1)> _
   Public Structure BitRec
       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=20)> Public iBit() As Integer
       Public iState As Integer
       Public iTime As Integer
   End Structure

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.[Ansi], Pack:=1)> _
    Public Structure MixCalcRec
        Public dLeistung As Double
        Public dTemp1 As Double
        Public dEinlauf As Double
        Public dAuslauf As Double
        Public dStempelWeg As Double
        Public dDrehzahl As Double
    End Structure

<System.Runtime.InteropServices.DllImportAttribute("DPCALC", EntryPoint:="_CalcMixData@28", CallingConvention:=System.Runtime.InteropServices.CallingConvention.StdCall)> _
   Public Shared Function CalcMixDataDLL(ByRef AnalogData As MixCalcRec, ByVal iArraySize As Integer, ByRef BitArray As BitRec, ByVal iBitSize As Integer, ByVal iMode As Integer, ByVal dbDistance As Double) As Integer
   End Function

Public Function CalcMixData(ByRef AnalogData As MixCalcRec, ByVal iArraySize As Integer, ByRef BitArray As BitRec, ByVal iBitSize As Integer, ByVal iMode As Integer, ByVal dbDistance As Double) As Integer
        Dim ireturn As Integer = 0
        Dim iSizeOfOneStruct1 As Integer = Marshal.SizeOf(GetType(MixCalcRec))
        Dim iTotalSize1 As Integer = iSizeOfOneStruct1 * iArraySize
        Dim pUnmanagedAnalogDaten As IntPtr = Marshal.AllocCoTaskMem(iTotalSize1)
        Marshal.StructureToPtr(AnalogData, pUnmanagedAnalogDaten, False)
        Dim iSizeOfOneStruct2 As Integer = Marshal.SizeOf(GetType(BitRec))
        Dim iTotalSize2 As Integer = iSizeOfOneStruct2 * iBitSize
        Dim pUnmanagedBitDaten As IntPtr = Marshal.AllocCoTaskMem(iTotalSize2)
        Marshal.StructureToPtr(BitArray, pUnmanagedBitDaten, False)
        ireturn = CalcMixDataDLL(pUnmanagedAnalogDaten, iArraySize, pUnmanagedBitDaten, iBitSize, iMode, dbDistance)
        Marshal.FreeCoTaskMem(pUnmanagedAnalogDaten)
        Marshal.FreeCoTaskMem(pUnmanagedBitDaten)
        CalcMixData = ireturn
    End Function

Dim objGuid As Guid = (objImage.FrameDimensionsList(0))
Dim objDimension As System.Drawing.Imaging.FrameDimension = New System.Drawing.Imaging.FrameDimension(objGuid)
imgTotalPage = objImage.GetFrameCount(objDimension)
objImage.SelectActiveFrame(objDimension, imgPage)