Создать управляемую библиотеку, чтобы использовать ее в будущем в других .NET проектах

   '   void (*Func) ( int n, double x[], double f[], int *iflag );  
 
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Sub DelegFunc(ByVal n As Integer, ByVal x As Double(), ByVal f As Double(), ByRef iflag As Integer)
 
    <DllImport("MathDLL.dll", CallingConvention:=CallingConvention.Cdecl, EntryPoint:="?hybrd1@@YAHP6AXHQAN0PAH@ZH00N0H@Z")> _
    Public Shared Function hybrd1(<MarshalAs(UnmanagedType.FunctionPtr)> ByVal fcn As DelegFunc, ByVal n As Integer, _
     ByVal x As Double(), ByVal fvec As Double(), ByVal tol As Double, ByVal wa As Double(), ByVal lwa As Integer) As Integer
    End Function
 
    Private DFunc As DelegFunc = Nothing
 
 
    Public Sub Func(ByVal n As Integer, ByVal x As Double(), ByVal f As Double(), ByRef iflag As Integer)
        '////////////////
        '//////////////////
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim n% = 3
        Dim x#() = {1.3, 2.3, 3.3}
        Dim fvec#() = {1.3, 2.3, 3.3}
        Dim wa#() = {1.8, 2, 3}
        Dim tol# = 4.8
        Dim lwa% = 4
        Me.DFunc = New DelegFunc(AddressOf Func)
        Dim val As Integer = hybrd1(DFunc, n, x, fvec, tol, wa, lwa)
        TextBox1.Text = CStr(val)
 
    End Sub

   <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Sub DelegFunc(ByVal n As Integer,
                                  <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                                  ByVal x As Double(),
                                  <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                                  ByVal f As Double(),
                                  ByRef iflag As Integer)
 
    <DllImport("MathFuncsDll.dll", EntryPoint:="hybrd1", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function addhybrd1(<MarshalAs(UnmanagedType.FunctionPtr)> ByVal fcn As DelegFunc,
                              ByVal n As Integer,
                               <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                              ByVal x As Double(),
                              <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                              ByVal fvec As Double(),
                              ByVal tol As Double,
                               <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                              ByVal wa As Double(),
                              ByVal lwa As Integer) As Integer
    End Function

 <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Sub DelegFunc1(ByVal n As Integer,
                                  <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                                 <[In](), Out()> ByVal x() As Double,
                                  <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                                 <[In](), Out()> ByVal f() As Double,
                                  ByRef iflag As Integer)
 
    <DllImport("MathFuncsDll.dll", EntryPoint:="hybrd1", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function addhybrd1(<MarshalAs(UnmanagedType.FunctionPtr)> ByVal fcn As DelegFunc1,
                              ByVal n As Integer,
                               <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                             <[In](), Out()> ByVal x() As Double,
                              <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                             <[In](), Out()> ByVal fvec() As Double,
                              ByVal tol As Double,
                               <MarshalAs(UnmanagedType.LPArray, SizeConst:=100)>
                             <[In](), Out()> ByVal wa() As Double,
                              ByVal lwa As Integer) As Integer
    End Function