Imports System.Text
Imports System.Runtime.InteropServices
Imports RGiesecke.DllExport

Class MyExtension

    <DllExport("RVExtensionVersion", CallingConvention:=CallingConvention.Winapi)>
    Public Shared Sub RvExtensionVersion(ByVal output As StringBuilder, ByVal outputSize As Integer)
        output.Append("Test-Extension v1.0")
    End Sub

    <DllExport("RVExtension", CallingConvention:=CallingConvention.Winapi)>
    Public Shared Sub RvExtension(ByVal output As StringBuilder, ByVal outputSize As Integer, ByVal function1 As String)
        output.Append(function1)
    End Sub

    <DllExport("RVExtensionArgs", CallingConvention:=CallingConvention.Winapi)>
    Public Shared Function RvExtensionArgs(ByVal output As StringBuilder, ByVal outputSize As Integer, ByVal function1 As String, ByVal args() As String, ByVal argCount As Integer) As Integer
        For Each arg In args
            output.Append(arg)
        Next
        Return 0
    End Function
End Class