TestEIn 1.6e2 :

- piccoli aggiornamenti.

AboutBox1.Designer.vb

@@ -50,9 +50,9 @@ Partial Class AboutBox1
       Me.OKButton.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
-      Me.OKButton.Location = New System.Drawing.Point(97, 343)
+      Me.OKButton.Location = New System.Drawing.Point(117, 346)
       Me.OKButton.Name = "OKButton"
-      Me.OKButton.Size = New System.Drawing.Size(113, 19)
+      Me.OKButton.Size = New System.Drawing.Size(80, 20)
       Me.OKButton.TabIndex = 0
       Me.OKButton.Text = "&OK"
       '
@@ -111,14 +111,14 @@ Partial Class AboutBox1
       Me.tbInfoProg.Multiline = True
       Me.tbInfoProg.Name = "tbInfoProg"
       Me.tbInfoProg.ReadOnly = True
-      Me.tbInfoProg.Size = New System.Drawing.Size(290, 152)
+      Me.tbInfoProg.Size = New System.Drawing.Size(290, 164)
       Me.tbInfoProg.TabIndex = 1
       Me.tbInfoProg.WordWrap = False
       '
       'tbInfoSys
       '
       Me.tbInfoSys.AcceptsReturn = True
-      Me.tbInfoSys.Location = New System.Drawing.Point(12, 248)
+      Me.tbInfoSys.Location = New System.Drawing.Point(12, 253)
       Me.tbInfoSys.Multiline = True
       Me.tbInfoSys.Name = "tbInfoSys"
       Me.tbInfoSys.ReadOnly = True

EgtInterface.vb

@@ -1770,9 +1770,9 @@ Public Function EgtCurveLength(ByVal nId As Integer, ByRef dLen As Double) As Bo
 End Function
 
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
-Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByRef ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean
+Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByVal ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean
 End Function
-Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByRef ptOn As Point3d, ByRef dLen As Double) As Boolean
+Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByVal ptOn As Point3d, ByRef dLen As Double) As Boolean
    Return EgtCurveLengthAtPoint(nId, ptOn, 0, dLen)
 End Function
 

My Project/AssemblyInfo.vb

@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.5.1")> 
-<Assembly: AssemblyFileVersion("1.6.5.1")> 
+<Assembly: AssemblyVersion("1.6.5.2")> 
+<Assembly: AssemblyFileVersion("1.6.5.2")>