Imports System
Imports System.Runtime.InteropServices
Namespace NAddIn
<ClassInterface(ClassInterfaceType.AutoDual)> _
Public Class Functions
Public Sub New()
End Sub
Public Function Add2(ByVal v1 As Double, ByVal v2 As Double) As Double
Return v1 + v2
End Function
<ComRegisterFunctionAttribute> _
Public Shared Sub RegisterFunction(ByVal t As Type)
Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("CLSID\{" & t.GUID.ToString().ToUpper() & "}\Programmable")
End Sub
<ComUnregisterFunctionAttribute> _
Public Shared Sub UnregisterFunction(ByVal t As Type)
Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey("CLSID\{" & t.GUID.ToString().ToUpper() & "}\Programmable")
End Sub
End Class
End Namespace