TestEIn 1.6g3 :

- aggiunto dialogo per componenti definiti con script lua
- piccole migliorie varie.

Component.Designer.vb

@@ -0,0 +1,453 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Component
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+      Me.components = New System.ComponentModel.Container()
+      Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Component))
+      Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+      Me.ListBox1 = New System.Windows.Forms.ListBox()
+      Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+      Me.tbName1 = New System.Windows.Forms.TextBox()
+      Me.tbName2 = New System.Windows.Forms.TextBox()
+      Me.tbName3 = New System.Windows.Forms.TextBox()
+      Me.tbName4 = New System.Windows.Forms.TextBox()
+      Me.tbName7 = New System.Windows.Forms.TextBox()
+      Me.tbName8 = New System.Windows.Forms.TextBox()
+      Me.tbName9 = New System.Windows.Forms.TextBox()
+      Me.tbName10 = New System.Windows.Forms.TextBox()
+      Me.tbName6 = New System.Windows.Forms.TextBox()
+      Me.tbName5 = New System.Windows.Forms.TextBox()
+      Me.tbValue1 = New System.Windows.Forms.TextBox()
+      Me.tbValue2 = New System.Windows.Forms.TextBox()
+      Me.tbValue3 = New System.Windows.Forms.TextBox()
+      Me.tbValue4 = New System.Windows.Forms.TextBox()
+      Me.tbValue5 = New System.Windows.Forms.TextBox()
+      Me.tbValue6 = New System.Windows.Forms.TextBox()
+      Me.tbValue7 = New System.Windows.Forms.TextBox()
+      Me.tbValue8 = New System.Windows.Forms.TextBox()
+      Me.tbValue9 = New System.Windows.Forms.TextBox()
+      Me.tbValue10 = New System.Windows.Forms.TextBox()
+      Me.btnView = New System.Windows.Forms.Button()
+      Me.btnInsert = New System.Windows.Forms.Button()
+      Me.tbMsg = New System.Windows.Forms.TextBox()
+      Me.Scene2 = New TestEIn.Scene()
+      Me.TableLayoutPanel1.SuspendLayout()
+      Me.TableLayoutPanel2.SuspendLayout()
+      Me.SuspendLayout()
+      '
+      'TableLayoutPanel1
+      '
+      Me.TableLayoutPanel1.ColumnCount = 2
+      Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
+      Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
+      Me.TableLayoutPanel1.Controls.Add(Me.Scene2, 1, 0)
+      Me.TableLayoutPanel1.Controls.Add(Me.ListBox1, 0, 0)
+      Me.TableLayoutPanel1.Controls.Add(Me.TableLayoutPanel2, 1, 1)
+      Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+      Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0)
+      Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+      Me.TableLayoutPanel1.RowCount = 2
+      Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+      Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 260.0!))
+      Me.TableLayoutPanel1.Size = New System.Drawing.Size(744, 414)
+      Me.TableLayoutPanel1.TabIndex = 3
+      '
+      'ListBox1
+      '
+      Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.ListBox1.FormattingEnabled = True
+      Me.ListBox1.ItemHeight = 31
+      Me.ListBox1.Location = New System.Drawing.Point(3, 3)
+      Me.ListBox1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
+      Me.ListBox1.Name = "ListBox1"
+      Me.TableLayoutPanel1.SetRowSpan(Me.ListBox1, 2)
+      Me.ListBox1.Size = New System.Drawing.Size(194, 411)
+      Me.ListBox1.TabIndex = 4
+      '
+      'TableLayoutPanel2
+      '
+      Me.TableLayoutPanel2.ColumnCount = 5
+      Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+      Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 97.0!))
+      Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 97.0!))
+      Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+      Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName1, 1, 0)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName2, 1, 1)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName3, 1, 2)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName4, 1, 3)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName7, 1, 6)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName8, 1, 7)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName9, 1, 8)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName10, 1, 9)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName6, 1, 5)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbName5, 1, 4)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue1, 2, 0)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue2, 2, 1)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue3, 2, 2)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue4, 2, 3)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue5, 2, 4)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue6, 2, 5)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue7, 2, 6)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue8, 2, 7)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue9, 2, 8)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbValue10, 2, 9)
+      Me.TableLayoutPanel2.Controls.Add(Me.btnView, 4, 1)
+      Me.TableLayoutPanel2.Controls.Add(Me.btnInsert, 4, 3)
+      Me.TableLayoutPanel2.Controls.Add(Me.tbMsg, 0, 10)
+      Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.TableLayoutPanel2.Location = New System.Drawing.Point(203, 157)
+      Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+      Me.TableLayoutPanel2.RowCount = 11
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 16.0!))
+      Me.TableLayoutPanel2.Size = New System.Drawing.Size(538, 254)
+      Me.TableLayoutPanel2.TabIndex = 5
+      '
+      'tbName1
+      '
+      Me.tbName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName1.Location = New System.Drawing.Point(142, 0)
+      Me.tbName1.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName1.Name = "tbName1"
+      Me.tbName1.ReadOnly = True
+      Me.tbName1.Size = New System.Drawing.Size(97, 24)
+      Me.tbName1.TabIndex = 0
+      Me.tbName1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName1.Visible = False
+      '
+      'tbName2
+      '
+      Me.tbName2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName2.Location = New System.Drawing.Point(142, 23)
+      Me.tbName2.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName2.Name = "tbName2"
+      Me.tbName2.ReadOnly = True
+      Me.tbName2.Size = New System.Drawing.Size(97, 24)
+      Me.tbName2.TabIndex = 1
+      Me.tbName2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName2.Visible = False
+      '
+      'tbName3
+      '
+      Me.tbName3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName3.Location = New System.Drawing.Point(142, 46)
+      Me.tbName3.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName3.Name = "tbName3"
+      Me.tbName3.ReadOnly = True
+      Me.tbName3.Size = New System.Drawing.Size(97, 24)
+      Me.tbName3.TabIndex = 2
+      Me.tbName3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName3.Visible = False
+      '
+      'tbName4
+      '
+      Me.tbName4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName4.Location = New System.Drawing.Point(142, 69)
+      Me.tbName4.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName4.Name = "tbName4"
+      Me.tbName4.ReadOnly = True
+      Me.tbName4.Size = New System.Drawing.Size(97, 24)
+      Me.tbName4.TabIndex = 3
+      Me.tbName4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName4.Visible = False
+      '
+      'tbName7
+      '
+      Me.tbName7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName7.Location = New System.Drawing.Point(142, 138)
+      Me.tbName7.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName7.Name = "tbName7"
+      Me.tbName7.ReadOnly = True
+      Me.tbName7.Size = New System.Drawing.Size(97, 24)
+      Me.tbName7.TabIndex = 6
+      Me.tbName7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName7.Visible = False
+      '
+      'tbName8
+      '
+      Me.tbName8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName8.Location = New System.Drawing.Point(142, 161)
+      Me.tbName8.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName8.Name = "tbName8"
+      Me.tbName8.ReadOnly = True
+      Me.tbName8.Size = New System.Drawing.Size(97, 24)
+      Me.tbName8.TabIndex = 7
+      Me.tbName8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName8.Visible = False
+      '
+      'tbName9
+      '
+      Me.tbName9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName9.Location = New System.Drawing.Point(142, 184)
+      Me.tbName9.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName9.Name = "tbName9"
+      Me.tbName9.ReadOnly = True
+      Me.tbName9.Size = New System.Drawing.Size(97, 24)
+      Me.tbName9.TabIndex = 8
+      Me.tbName9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName9.Visible = False
+      '
+      'tbName10
+      '
+      Me.tbName10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName10.Location = New System.Drawing.Point(142, 207)
+      Me.tbName10.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName10.Name = "tbName10"
+      Me.tbName10.ReadOnly = True
+      Me.tbName10.Size = New System.Drawing.Size(97, 24)
+      Me.tbName10.TabIndex = 9
+      Me.tbName10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName10.Visible = False
+      '
+      'tbName6
+      '
+      Me.tbName6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName6.Location = New System.Drawing.Point(142, 115)
+      Me.tbName6.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName6.Name = "tbName6"
+      Me.tbName6.ReadOnly = True
+      Me.tbName6.Size = New System.Drawing.Size(97, 24)
+      Me.tbName6.TabIndex = 5
+      Me.tbName6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName6.Visible = False
+      '
+      'tbName5
+      '
+      Me.tbName5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbName5.Location = New System.Drawing.Point(142, 92)
+      Me.tbName5.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbName5.Name = "tbName5"
+      Me.tbName5.ReadOnly = True
+      Me.tbName5.Size = New System.Drawing.Size(97, 24)
+      Me.tbName5.TabIndex = 4
+      Me.tbName5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+      Me.tbName5.Visible = False
+      '
+      'tbValue1
+      '
+      Me.tbValue1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue1.Location = New System.Drawing.Point(239, 0)
+      Me.tbValue1.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue1.Name = "tbValue1"
+      Me.tbValue1.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue1.TabIndex = 10
+      Me.tbValue1.Visible = False
+      '
+      'tbValue2
+      '
+      Me.tbValue2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue2.Location = New System.Drawing.Point(239, 23)
+      Me.tbValue2.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue2.Name = "tbValue2"
+      Me.tbValue2.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue2.TabIndex = 11
+      Me.tbValue2.Visible = False
+      '
+      'tbValue3
+      '
+      Me.tbValue3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue3.Location = New System.Drawing.Point(239, 46)
+      Me.tbValue3.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue3.Name = "tbValue3"
+      Me.tbValue3.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue3.TabIndex = 12
+      Me.tbValue3.Visible = False
+      '
+      'tbValue4
+      '
+      Me.tbValue4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue4.Location = New System.Drawing.Point(239, 69)
+      Me.tbValue4.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue4.Name = "tbValue4"
+      Me.tbValue4.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue4.TabIndex = 13
+      Me.tbValue4.Visible = False
+      '
+      'tbValue5
+      '
+      Me.tbValue5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue5.Location = New System.Drawing.Point(239, 92)
+      Me.tbValue5.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue5.Name = "tbValue5"
+      Me.tbValue5.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue5.TabIndex = 14
+      Me.tbValue5.Visible = False
+      '
+      'tbValue6
+      '
+      Me.tbValue6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue6.Location = New System.Drawing.Point(239, 115)
+      Me.tbValue6.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue6.Name = "tbValue6"
+      Me.tbValue6.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue6.TabIndex = 15
+      Me.tbValue6.Visible = False
+      '
+      'tbValue7
+      '
+      Me.tbValue7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue7.Location = New System.Drawing.Point(239, 138)
+      Me.tbValue7.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue7.Name = "tbValue7"
+      Me.tbValue7.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue7.TabIndex = 16
+      Me.tbValue7.Visible = False
+      '
+      'tbValue8
+      '
+      Me.tbValue8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue8.Location = New System.Drawing.Point(239, 161)
+      Me.tbValue8.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue8.Name = "tbValue8"
+      Me.tbValue8.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue8.TabIndex = 17
+      Me.tbValue8.Visible = False
+      '
+      'tbValue9
+      '
+      Me.tbValue9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue9.Location = New System.Drawing.Point(239, 184)
+      Me.tbValue9.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue9.Name = "tbValue9"
+      Me.tbValue9.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue9.TabIndex = 18
+      Me.tbValue9.Visible = False
+      '
+      'tbValue10
+      '
+      Me.tbValue10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.tbValue10.Location = New System.Drawing.Point(239, 207)
+      Me.tbValue10.Margin = New System.Windows.Forms.Padding(0)
+      Me.tbValue10.Name = "tbValue10"
+      Me.tbValue10.Size = New System.Drawing.Size(97, 24)
+      Me.tbValue10.TabIndex = 19
+      Me.tbValue10.Visible = False
+      '
+      'btnView
+      '
+      Me.btnView.Dock = System.Windows.Forms.DockStyle.Left
+      Me.btnView.Enabled = False
+      Me.btnView.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.btnView.Location = New System.Drawing.Point(396, 23)
+      Me.btnView.Margin = New System.Windows.Forms.Padding(0)
+      Me.btnView.Name = "btnView"
+      Me.btnView.Size = New System.Drawing.Size(75, 23)
+      Me.btnView.TabIndex = 20
+      Me.btnView.Text = "View"
+      Me.btnView.UseVisualStyleBackColor = True
+      '
+      'btnInsert
+      '
+      Me.btnInsert.Dock = System.Windows.Forms.DockStyle.Left
+      Me.btnInsert.Enabled = False
+      Me.btnInsert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.btnInsert.Location = New System.Drawing.Point(396, 69)
+      Me.btnInsert.Margin = New System.Windows.Forms.Padding(0)
+      Me.btnInsert.Name = "btnInsert"
+      Me.btnInsert.Size = New System.Drawing.Size(75, 23)
+      Me.btnInsert.TabIndex = 21
+      Me.btnInsert.Text = "Insert"
+      Me.btnInsert.UseVisualStyleBackColor = True
+      '
+      'tbMsg
+      '
+      Me.TableLayoutPanel2.SetColumnSpan(Me.tbMsg, 5)
+      Me.tbMsg.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.tbMsg.Location = New System.Drawing.Point(3, 233)
+      Me.tbMsg.Name = "tbMsg"
+      Me.tbMsg.ReadOnly = True
+      Me.tbMsg.Size = New System.Drawing.Size(532, 20)
+      Me.tbMsg.TabIndex = 22
+      '
+      'Scene2
+      '
+      Me.Scene2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+      Me.Scene2.Cursor = System.Windows.Forms.Cursors.Default
+      Me.Scene2.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.Scene2.Location = New System.Drawing.Point(200, 0)
+      Me.Scene2.Margin = New System.Windows.Forms.Padding(0)
+      Me.Scene2.Name = "Scene2"
+      Me.Scene2.Size = New System.Drawing.Size(544, 154)
+      Me.Scene2.TabIndex = 3
+      '
+      'Component
+      '
+      Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+      Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+      Me.AutoSize = True
+      Me.ClientSize = New System.Drawing.Size(744, 414)
+      Me.Controls.Add(Me.TableLayoutPanel1)
+      Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+      Me.KeyPreview = True
+      Me.MaximizeBox = False
+      Me.MinimizeBox = False
+      Me.Name = "Component"
+      Me.ShowIcon = False
+      Me.ShowInTaskbar = False
+      Me.TableLayoutPanel1.ResumeLayout(False)
+      Me.TableLayoutPanel2.ResumeLayout(False)
+      Me.TableLayoutPanel2.PerformLayout()
+      Me.ResumeLayout(False)
+
+End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents Scene2 As TestEIn.Scene
+    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
+    Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents tbName1 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName2 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName3 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName4 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName5 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName6 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName7 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName8 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName9 As System.Windows.Forms.TextBox
+    Friend WithEvents tbName10 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue1 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue2 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue3 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue4 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue5 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue6 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue7 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue8 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue9 As System.Windows.Forms.TextBox
+    Friend WithEvents tbValue10 As System.Windows.Forms.TextBox
+    Friend WithEvents btnView As System.Windows.Forms.Button
+    Friend WithEvents btnInsert As System.Windows.Forms.Button
+    Friend WithEvents tbMsg As System.Windows.Forms.TextBox
+
+End Class

Component.resx

@@ -0,0 +1,278 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAQAMDAAAAAACACoDgAARgAAACAgAAAAAAgAqAgAAO4OAAAYGAAAAAAIAMgGAACWFwAAEBAAAAAA
+        CABoBQAAXh4AACgAAAAwAAAAYAAAAAEACAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAfDwGAFE2
+        NwAYVTEAGVo1ABteOQAdYj0AbkMhAGRIPgAcGlwALCVZAD00XgAXH34AHmdBACBrRQAqaUYAIW5IACNz
+        TAAmelQAMnZTADN5VgA1flsAPXtbAC5teABCclYAeGNrAIVABgCERAsAiEQKAIlIDQCDRxQAjE0RAI5Q
+        EwCRUhUAk1UYAJZZGgCYXR0AmmAfAIhYKACQXCYAnGMiAJtlLACZaCwAn2cyAJ1tMwCbcD4AoGgmAKJs
+        KgCmcS0AoGwwAKVyNACpdTEAp3k2AKx6NACndDgAqXU5AKd6PACsezoAn29FAK59QgApg1sANYNeACyL
+        YwA2imYALpBoADKUawA2mnIAN6N5AFSHawBEmXYAZJV7AEOlfwCvgToAsoM7ALWIPwCtgUIAsIJCALaK
+        QQC4jUIAsoVJALWKSwC4jUwAvJFFALyUSgC/mEwAtYpSALiOVQCwg1oAvZVXAJ6IbACxhmIAvJdhALyV
+        bAC/mW8AsZF4AMGZSwDDnVcAxqJYAMGbZQDGomQAyaVhAMyqZQDEo20AzKpqAMakcwDLqnIAxaN5AMqs
+        egDUt3gAAw6DABEZggAGFJwACxqoAA4dsAAQH7AAHz2pABYmuAA2P60AJje+ACdWkgApRaUAOESwAEdy
+        pgBvcasAHS7BAB8wwgAlNsgALD7QACxAzwA4SMoANVXMAC5C0gA1SNYAOVDeAD5g3wA9VuAAQE/KAENR
+        zQBHV9cAUV/XAE9o3gBTYtsATXDcAFZ02gBhb98AZHTcAEJc4gBGZuUAVmniAExy6ABVd+gAZXjlAHF+
+        5wA5rIIAPbKHAEirhQBRrIgARrSMAEi8kwBWuZcAbKiNAGivkgBouJkAdbmdAFicrgB+uaEAV8KcAFvH
+        oQBlyaYAcMysAGrQrgBv0bAAedS1AHiH2AB7ltwAWoPrAGaJ6QB3iuoAaJHsAHWY7gBrmPAAdZ3wAHqm
+        8wCckZUAg7WfAIy6pQCQvqoAqKKpAMenhwDOtI4A1ruDANC4kACXxrMAg9m8AKPEtACwy70A3MOFANbE
+        lADhy4wA48+RAObTlQDXxKMA3c21ANrSuQDg1L8Ah5jeAIKb7gCAn/AAiaHiAJWr4ACVs+EAgqz0AIi2
+        9gCTufYAqbrkALW95gCJ3cIAkdvCAL7XzgCN4MUAluPKAJ3o0QCk6tQAsu7bALTx3wCVxfkAntP9AKrC
+        4wC2wucAvdDhAKDL+gCq1fsAs9z9ALvy4QDH184A3dXEAMba0wDT29cA4M/AAOHRwgDi3tsA4eDeAMLL
+        6QDG0+cA0tjpAMHa+wDd5ucAyvTnANPs/gDp6OcA8PDwAPXx7QDq7PQA9PTzAPj39wD///8ASUlJSUlJ
+        SUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSf//////////////////////
+        //////////////////////////////////////9JSf//////////////////////////////////////
+        //////////////////////9JSf//////////////////////////////////////////////////////
+        //////9JSf////////////////////////////////////////////////////////////9JSf//////
+        //////////////////////////////////////////////////////9JSf//////////////////////
+        //////////////////////////////////////9JSf//////////////////////////////////////
+        //////////////////////9JSf//////////////////////////////////////////////////////
+        //////9JSf////////////////////////////////////////////////////////////9JSf//////
+        //////////////////////////////////////////77+e/w/v////9JSf//////////////////////
+        //////////////////////v58O/Kye/+//////9JSf//////////////////////////////////////
+        /vnw7+7KycrJ7/////////9JSf//////////////////////////////////+/DuysrKysrKysru////
+        //////9JSf/////////////////////////////+8O7JycnKysrKysrKysr///////////9JSf////7/
+        /////////////////vv57+7JycrKysrKysrKysrKyr3+//////////9JSf///7/J7/v/////////+/nw
+        78rJysrKysrKysrKysrKysrJvbz+//////////9JSf///71JWGJryfD7++/v7srJysrKysrKysrKysrK
+        ysrKysq9vbz7//////////9JSf///8xJUVFKUVhYvMrv7srKysrKysrKysrKysrKysrKyr29vbzw////
+        //////9JSf////5OUVFRUVFRTkpKYr/KycrKysrKysrKysrKysrJvb29vbzv//////////9JSf////9p
+        TlFRUVFRUVFRUUpKUWu/v8ru7srKysrKysm9vb29vbzK//////////9JSf/////JSlFRUVFRUVFRUVFR
+        UU5KUWa8vMnu7srKyb29vb29vb3J//////////9JSf/////wTlFRUVFRUVFRUVFRUVFRUVFOTlhdXb3J
+        vb29vb29vb2///////////9JSf/////7YlFRUVFRUVFRUVFRUVFRUVFRUVFOSmtovb29vb29vb28////
+        //////9JSf//////vkpRUVFRUVFRUVFRUVFRUVFRUVFWa11dXby9vb29vb28//////////9JSf//////
+        yk5RUVFRUVFRUVFRUVFRUVFRUVhoaF1dXV1qvb29vb28/v////////9JSf//////8FhRUVFRUVFRUVFR
+        UVFRUVFRWGhoXV1dXV1dXby9vb28+/////////9JSf///////mdOUVFRUVFRUVFRUVFRUVFRamhdXV1d
+        XV1dXV1qvb28+f////////9JSf///////75OUVFRUVFRUVFRUVFRUVhoaF1dXV1dXV1dXV1dXWu97///
+        //////9JSf///////8xRUVFRUVFRUVFRUVFRWGhdXV1dXV1dXV1dXV1dXV1dyv////////9JSf//////
+        //tYUVFRUVFRUVFRUVFYaGhdXV1dXV1dXV1dXV1dXV1dXcn7//////9JSf////////9dTlFRUVFRUVFR
+        UVhoaF1dXV1dXV1dXV1dXV1dXV1dXWJr7/////9JSf/////////JSlFRUVFRUVFRWGhoXV1dXV1dXV1d
+        XV1dXWJiYmJiYmhqvfD///9JSf/////////5SVFRUVFRUU5YaF1dXV1iYmJiYlhiaLy9ycru8Pn7/v7+
+        /v////9JSf//////////SlFRUVFRUWJramu9v8ru8Pn7/v////////////////////////9JSf//////
+        ////a05RUVFOYsz///////////////////////////////////////9JSf//////////7klRUUpg8P//
+        //////////////////////////////////////9JSf//////////+0pRTlj7////////////////////
+        //////////////////////9JSf///////////2ZJVvn/////////////////////////////////////
+        //////9JSf///////////8lg+/////////////////////////////////////////////9JSf//////
+        //////nw//////////////////////////////////////////////9JSf//////////////////////
+        //////////////////////////////////////9JSf//////////////////////////////////////
+        //////////////////////9JSf//////////////////////////////////////////////////////
+        //////9JSf////////////////////////////////////////////////////////////9JSf//////
+        //////////////////////////////////////////////////////9JSf//////////////////////
+        //////////////////////////////////////9JSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJ
+        SUlJSUlJSUlJSUlJSUlJSUlJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA
+        AAAABAAAAAAAAAAAAAAAAQAAAAEAAAAAAAB+PQcARC0zABpbNgAbXjkAHWI9ACZgPgBbQTwAf1MoACki
+        VAA+NV0AFx59AB5mQAAfaEIAIGtFACJuSAAjc0wAJXdQACZ6UgAoflcAOHNTADt6WQApdmYAMWl4AIRE
+        CwCJRgsAjEwQAI5QFQCSUxUAklUZAJVZGgCZXR4AmF4iAJxjIgCcay4AnWs8AKBpJgCibCoApXEtAKFv
+        MwCkbzsApHQyAKl2MwCqeDIApXQ8AKh1OQCsfjoAnnNAAKl3QQCse0YAKoNbACeJXwAtjGQAMopkAC+U
+        awAzkmoANZtyADuddgA0pHkAN6p+AEWEZABGiWgASI1sAEqUcwBDmXQARp96AEubeQBijnUARKR8AFCh
+        fwCugDkAsoM9ALiMPwCvgUAArYFIALGERAC2ikEAuI1CALGFTAC0iksAuY5PALyTSgC2jFAAuI1RALSL
+        WwC3kVIAu5JTALuUWgC+mGkAu5RzAL2ZdQCuoGUApqBoAKmlbQCtq3IAsbJ6AMKbTADCnVcAx6JVAMCc
+        YwDJpmQA07RuAMWjdADIpnMAy6tyAMKjfQDMrXsAz7F2ANGzdQDRs3wA17t8ANi8egAOFoIABRKaAAwa
+        pwAQHq0AFia3AB0zugAlMKsAIze4ACtVmQBhZKsAHS3AACAvwQAlNscALT7RADdFxgA2R9QAOVTbAD1V
+        4QBATskAQ1XNAEhX1ABNYt0AVWTWAF983gBgb98AY33ZAHJ/3wBCW+IASGflAFRp4wBMcugAU3joAGd9
+        5wA5q4AAPbCFAEebigB2hZwASamEAFOmhABapIUAWKmIAEK2jABHu5EAVbuWAHOiigBmtpkAcr2fAH27
+        ogBPwZkAWsKdAGDCngBdxqIAZcqmAHPHqQBu0a8AcdCtAG/TsQB10rMAedK0AH/WuQB92boAU5rGAGqH
+        3AB8jtsAXKDAAGavxgBnssUAW4XsAGmL6AB2h+UAZ5PvAHiX6QBvm/EAd57wAHel8wCFsJsAtryEAMen
+        gwDLs4QAzbWNANS5hgDOtJoA1LqSANO8mQDVvqIAmsOxAIDXugCE274A3MKDAOHKiwDizpYA5tOVANbA
+        qADXzLMA3Mu0AN/UvgCAk9sAjqfcAJCj3gCEkesAhafpAJOj7gCHp/EAiLf2AJm/9wCpuOQAid3CAJXd
+        xAC71swAv9nOAL/M3QCO4MYAl+PLAJzo0ACj6dMAufHfAJfI+gCqzewAtcblAKfL+QCt0foAtNj8ALry
+        4QDD1cwAxdrRAN/d3QDh1MAA4N/eANTg2QDb4e8AzPXoAMXl/QDe4vEA6OfmAOTn7ADr6uoA8O/uAPPx
+        7wDr7vUA7/LwAJKSkgD+/v4AAAAAAP///wBMTExMTExMTExMTExMTExMTExMTExMTExMTExMTExMTEz/
+        //////////////////////////////////////9MTP//////////////////////////////////////
+        /0xM////////////////////////////////////////TEz/////////////////////////////////
+        //////9MTP///////////////////////////////////////0xM////////////////////////////
+        ///////5////TEz////////////////////////////57e3EzvX///9MTP/////////////////////5
+        +fntzs/Pzs/5/////0xM//////////////////Xt+c/Pzs7Ozs7O7f//////TEz//8/t+v/////69fXP
+        z87Ozs7Ozs7OzsTE//////9MTP//alFov8/t7fXPzs7Ozs7Ozs7Ozs7Dvc///////0xM///1UElNTWBm
+        asTOzs7Ozs7Ozs7Ow8C/z///////TEz///9YUFBQUExNU1dqwMTOzs/OzsPAwMDO+P////9MTP///79N
+        UFBQUFBQTVBQV2O9wsTDwMDAwMT1/////0xM////zlFQUFBQUFBQUFBQTU1TZr3CwsDAxPX/////TEz/
+        ///1YVBQUFBQUFBQUFBQV2ZYWGbAwsDD+f////9MTP////VmUFBQUFBQUFBQUFdmZlhYWGa9wsP1////
+        /0xM/////8RQUFBQUFBQUFBXZmZYWFhYWFhmwPX/////TEz/////z1NQUFBQUFBQV2ZYWFhYWFhYWFhm
+        xP////9MTP/////1Y1BQUFBQUFdmWFhYWFhYWFhYWFhYbO3//0xM//////psTVBQUE1XZmRYZmZmZmZq
+        vcDCxMLCz///TEz//////8RNUFBMZMPCwsTOz/XPz+319fn///////9MTP//////7VFQTGj5//n5+v//
+        /////////////////0xM////////U0xq+f//////////////////////////TEz///////+9aP//////
+        //////////////////////9MTP////////X1/////////////////////////////0xM////////////
+        ////////////////////////////TEz///////////////////////////////////////9MTP//////
+        /////////////////////////////////0xM////////////////////////////////////////TExM
+        TExMTExMTExMTExMTExMTExMTExMTExMTExMTExMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAGAAAADAAAAABAAgAAAAAAEAC
+        AAAAAAAAAAAAAAABAAAAAQAAAAAAAEo0OgAcXzoAHWI8ADArXgAeZkAAHWhDACdiQAAgbEYAIW5IACNz
+        TAAtc08AJXZQACV6UwApfVcAMXhWADh8XQAtYm4AfGdeAGBXfQCBQQkAgUINAINFDwCIRw0Ah0gNAIdJ
+        EgCNTRIAik0VAIxQFwCMVhsAkVIVAJJUFgCWWRsAmV4eAJFaIACWXyEAk14nAJBcKACXYyUAnGMiAJdl
+        KgCdZSgAnWwuAIxjNQCabDoAoG4nAKFqKACibywApXEuAKNyMwCrejQApXI9AKN1PACtfj0AqXdBAKx8
+        RgCqekwAKoNbAC2KYgA1jWgAPo5sAD+VcQAymnAANaF3AEaIZwBIjm0AU4NnAFOPcwBLlHQATZt6AGOT
+        eQBGoXwAr4E7ALWIPgCvgEMAroJLALGCQQCziEIAuI1EALOFTQC/lUgArINQAKiCVwCugFgAtotRALaN
+        UQC2jlgAu5FUAL+ZVAC3kFkAvJRbAL+YXQC9lmUAv5tjAL2ZcwCmoGgAq6hvAK+vdgCytn4AwZpNAMOd
+        UgDNrGYAxaNtAMajcQDIpnYAxq1yAMurcgDNrXQA0bN3ANG0fgATG4UACBGXAAgWmwAOGaQADRupABEd
+        qQAQH7AAESCvABMitAAXJ7oAGSa4ABoqvAAgObAAKVOVADtIvgBbWpIAHSvAACEyxAArO8oAP03IADJF
+        1QA7S9MAOU3dADhoygA8VOAAPljiAERSzQBEU9EAS1zUAEdpzABAdswAUXHNAFl1zwBEY9gASmbeAFJk
+        0ABNe9AAXn7cAGl23QBCX+MARGTkAEdp5gBLbucATHLoAFRw5gBfcOUAUXXoAFR96gBldeQAbXriAHF+
+        4gBFk4cAT62HAFCjgABbpYcAVaiGAE2xjABloYYAZqSKAGimiwBhqIoAc6eQAHKrkgB7qZQAc7qeAF7H
+        ogBqwqIAZsypAG3PrgB3zK4AbtKwAHbVtQBPgMUAW4PIAFmS0ABij8wAf4/ZAHuW2QBXgesAXYftAGmC
+        6QBijusAdYLiAHCF6QBmlO8AepvjAHOT7QB8le0AbJnwAHWg8gB+rPQAlY+fAJ+rjgC2vYUA172IANW/
+        nwCE1roAidW7ANrCjgDfyIkA3siTAOPPmgDZyKoA3NG7AOjWogCQm+0Ahp/wAIii4ACUpOQAkqLuAIu4
+        5ACds+AAkrj2AIvdwgCR3sUAnt3HAKXeygCd588ApOXPAKDn0AC26tkAksD4ALXE5QC4w+cAocb4ALLO
+        +QCt0/oAttv8ALzy4QC74v4AxtvSAOLTwgDg394A2t/tANne8QDb6OEA3+LoAMby5ADi4OAA6ubgAOrp
+        6ADw6+UA8O3oAPLz8QD4+PgA////AE5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk7/////////////////
+        ////////////Tk7/////////////////////////////Tk7/////////////////////////////Tk7/
+        ///////////////////////9/v//Tk7///////////////////728fHx+v//Tk7///////////////3w
+        8fHx1dXx/f//Tk7//f////////rxzfHT1c3Nzc3y////Tk7/bFzN8fHxzfHx8c3Nzc3Nzcz6////Tk7/
+        1VBQUF1nzM3NzfHVzc3NbMzx////Tk7//VZUVE5OVFZcZ8zNzc3MbMzx/v//Tk7//15QVFRUVFRUTk5U
+        Z2zMzMzN/f//Tk7//81QVFRUVFRUVFRmZ2ZnzMzN/f//Tk7///FWVFRUVFRUVGZnXmZmZ2zN/f//Tk7/
+        //pmVFRUVFRWZmdeZmZmZmds8v//Tk7///1sTlRUVFZmZ2ZmZ2dlZ2dnavH/Tk7////TUFRUTlxnZWdq
+        Z15rzc3V1fH/Tk7////xXE5W1fLy9v7/////////////Tk7////6Zk7x////////////////////Tk7/
+        ////zdX/////////////////////Tk7/////////////////////////////Tk7/////////////////
+        ////////////Tk7/////////////////////////////Tk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTgAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
+        AAAAAAAAAAEAAAABAAAAAAAAVDkoABNfOgASYDkAG2I/ABtlQQAeZkEAGWlEAB11TwAafFAAJH5WADN1
+        VABtc0YAi0sQAJFSEwCSVBYAmV4aAJhdHgCeZiUAm2grAJxqPAChaiQAo28oAKdyJgCicC0AqnUqAKJt
+        OAClczUApXA4AKN0PACseTsAqng/AJppQgCjckQArn5EAKl6SAAjg1oAJo1gAHqMWQBDhWUAQ4toAEiK
+        awBXh20AT5BpAFmNcQBWlXYAXZx/ALOEOwCvgU4AtopPALqQSgCwhFMAtIhYALqQXwCAmWUAvZphAL6Y
+        ZQCKqXAAwplJAMSfVwDSq1kAxZ9gAMincgDKq3sA3rx6APHQfwAKF44AAxSpAAkatgARILIAFSa9ABgn
+        ugAaJb8ALjm3AFJvkABrbZ4AS06rABUnxwAdLcEAIjPGADI+xgAkO+IAL0DPADVCwAA1RMsAOUTIAD1J
+        0gA5WeAAPlriAE9cwwBGWtwAUF7VAE9txQBXZNMAUmXfAFxp2ABicN0ARlvhAEFi5QBHaOYAT3bpAFd9
+        6gBLkIEASKqEAFyhhABbtZMAXL2YAGGliABczZ0AbsamAHLOrwB51rYAe9uyAF6V8QBije0AeoXmAHmL
+        6wB+jOoAd430AG6Y8ABwk/sAgYCcAMOhgQDCoYUAxaqDAMmrhgDOsIQAz7WMANK2jACCwagAgs6rAITM
+        swDaw5cA4MaXAN3HqQDdyakAhZDmAIWf7wCLoe8An6XlAJWv9ACGsP8ArbXyAJfZwwC318kAvd7OAKXk
+        zgCw6tgAsu3bAIrC/QC9wu8Ap8f4ALvU+QC72/wAvuP+AOjayQDJ59wA8+PHANDV9QDZ3/oA0engAMXy
+        5ADY+O4A9e7kAOfz7gDm7fwA8vn3AP38+QD5+v8A//7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8AMTExMTExMTExMTExMTExMTH//////////////////zEx////////////
+        //////8xMf////////////+mo6b/MTH/////////pJubm5um/zEx/4ajpqObhoabm4ab//8xMf8/MTg/
+        hIaGhoZ/m///MTH/hjIxMjExPX9/f4b//zEx//83MTExMTc4OH+G//8xMf+mejIxMTc+Pj4+faD/MTH/
+        /4YyMjo9Pj44fX2G/zEx//+bMn+kpf////////8xMf//o4b/////////////MTH/////////////////
+        /zEx//////////////////8xMTExMTExMTExMTExMTExMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
+</value>
+  </data>
+</root>

Component.vb

@@ -0,0 +1,349 @@
+'----------------------------------------------------------------------------
+'  EgalTech 2015-2015
+'----------------------------------------------------------------------------
+' File : Component.vb       Data : 09.07.15        Versione : 1.6g3
+' Contenuto : Classe Component (dialogo esecuzione componente parametrico).
+'
+'
+'
+' Modifiche : 08.07.15 DS Creazione modulo.
+'
+'
+'----------------------------------------------------------------------------
+
+Imports System.Globalization
+Imports TestEIn.EgtInterface
+
+Public Class Component
+   ' Constants
+   Private Const NUM_VAR As Integer = 10
+   Private Const LUA_CMP_VARS As String = "CMP"
+   Private Const LUA_CMP_DRAW As String = "CMP_Draw"
+
+   ' Properties
+   Private m_sCompoDir As String = String.Empty
+   Private m_sCompoName As String = String.Empty
+   Private m_CVars(NUM_VAR - 1) As CompoVar
+
+   Private Sub Component_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+      ' imposto colore di default
+      Dim DefColor As New Color3d(0, 0, 0)
+      GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor, Form1.GetIniFile())
+      Scene2.SetDefaultMaterial(DefColor)
+      ' imposto colori sfondo
+      Dim BackTopColor As New Color3d(192, 192, 192)
+      GetPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor, Form1.GetIniFile())
+      Dim BackBotColor As New Color3d(BackTopColor)
+      GetPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor, Form1.GetIniFile())
+      Scene2.SetViewBackground(BackTopColor, BackBotColor)
+      ' imposto colore di evidenziazione
+      Dim MarkColor As New Color3d(255, 255, 0)
+      GetPrivateProfileColor(S_SCENE, K_MARK, MarkColor, Form1.GetIniFile())
+      Scene2.SetMarkMaterial(MarkColor)
+      ' imposto colore per superfici selezionate
+      Dim SelSurfColor As New Color3d(255, 255, 192)
+      GetPrivateProfileColor(S_SCENE, K_SELSURF, SelSurfColor, Form1.GetIniFile())
+      Scene2.SetSelSurfMaterial(SelSurfColor)
+      ' imposto tipo e colore del rettangolo di zoom
+      Dim bOutline As Boolean = True
+      Dim ZwColor As New Color3d(0, 0, 0)
+      GetPrivateProfileZoomWin(S_SCENE, K_ZOOMWIN, bOutline, ZwColor, Form1.GetIniFile())
+      Scene2.SetZoomWinAttribs(bOutline, ZwColor)
+      ' imposto colore della linea di distanza
+      Dim DstLnColor As New Color3d(255, 0, 0)
+      GetPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor, Form1.GetIniFile())
+      Scene2.SetDistLineMaterial(DstLnColor)
+      ' imposto parametri OpenGL
+      Dim nDriver As Integer = GetPrivateProfileInt(S_OPENGL, K_DRIVER, 3, Form1.GetIniFile())
+      Dim b2Buff As Boolean = (GetPrivateProfileInt(S_OPENGL, K_DOUBLEBUFFER, 1, Form1.GetIniFile()) <> 0)
+      Dim nColorBits As Integer = GetPrivateProfileInt(S_OPENGL, K_COLORBITS, 32, Form1.GetIniFile())
+      Dim nDepthBits As Integer = GetPrivateProfileInt(S_OPENGL, K_DEPTHBITS, 32, Form1.GetIniFile())
+      Scene2.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits)
+      ' inizializzo la scena (DB geometrico + visualizzazione)
+      Scene2.Init()
+      ' assegno posizione e dimensioni finestra
+      Dim nFlag As Integer
+      Dim nLeft As Integer
+      Dim nTop As Integer
+      Dim nWidth As Integer
+      Dim nHeight As Integer
+      GetPrivateProfileWinPos(S_COMPO, K_CMPWINPLACE, nFlag, nLeft, nTop, nWidth, nHeight, Form1.GetIniFile())
+      Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
+      Me.Location = New Point(nLeft, nTop)
+      Me.Size = New Size(nWidth, nHeight)
+      WindowState = If(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal)
+      ' leggo direttorio componenti
+      GetPrivateProfileString(S_COMPO, K_COMPODIR, "", m_sCompoDir, Form1.GetIniFile())
+      ' recupero i file lua del direttorio e li inserisco nella lista dei componenti
+      Dim DirInfo As New IO.DirectoryInfo(m_sCompoDir)
+      Dim vFi As IO.FileInfo() = DirInfo.GetFiles("*.lua")
+      Dim Fi As IO.FileInfo
+      For Each Fi In vFi
+         ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(Fi.Name))
+      Next
+      ' imposto selezione sul primo
+      ListBox1.SelectedIndex = 0
+      LoadCurrentCompo()
+   End Sub
+
+   Private Sub Component_FormClosing(sender As System.Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
+      ' Salvo posizione finestra
+      Dim nFlag As Integer = If(Me.WindowState = FormWindowState.Maximized, 1, 0)
+      WritePrivateProfileWinPos(S_COMPO, K_CMPWINPLACE, nFlag, Me.Left, Me.Top, Me.Width, Me.Height, Form1.GetIniFile())
+      ' Pulisco l'ambiente lua
+      EgtLuaResetGlobVar(LUA_CMP_VARS)
+      EgtLuaResetGlobVar(LUA_CMP_DRAW)
+      ' Termino la scena (DB geometrico + visualizzazione)
+      Scene2.Terminate()
+   End Sub
+
+   Private Sub Component_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
+      If e.KeyData = Keys.Escape Then
+         Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+         Me.Close()
+      End If
+   End Sub
+
+   Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
+      LoadCurrentCompo()
+   End Sub
+
+   Private Sub LoadCurrentCompo()
+      ' Recupero item selezionato
+      Dim sCompo As String = ListBox1.SelectedItem.ToString()
+      ' verifico se cambiato
+      If sCompo = m_sCompoName Then
+         Return
+      End If
+      m_sCompoName = sCompo
+      'Pulisco l'ambiente lua
+      EgtLuaResetGlobVar(LUA_CMP_VARS)
+      EgtLuaResetGlobVar(LUA_CMP_DRAW)
+      ' Costruisco path completa del componente
+      Dim sPath = m_sCompoDir & "\" & m_sCompoName & ".lua"
+      ' Lo eseguo
+      If Not EgtLuaExecFile(sPath) Then
+         EgtNewFile()
+         tbMsg.Text = "Error in component execution"
+      Else
+         tbMsg.Text = ""
+      End If
+      Scene2.ZoomAll()
+      ' recupero nome, tipo e valore delle variabili globali
+      For i As Integer = 1 To NUM_VAR
+         Dim CVar = New CompoVar
+         If CVar.NameTypeValueFromLua(i) Then
+            m_CVars(i - 1) = CVar
+         Else
+            m_CVars(i - 1) = Nothing
+         End If
+      Next
+      ' aggiorno la griglia
+      For i As Integer = 1 To NUM_VAR
+         If m_CVars(i - 1) IsNot Nothing Then
+            GetNameEdit(i).Text = m_CVars(i - 1).m_sName
+            GetNameEdit(i).Show()
+            GetValueEdit(i).Text = m_CVars(i - 1).ToString()
+            GetValueEdit(i).Show()
+         Else
+            GetNameEdit(i).Hide()
+            GetValueEdit(i).Hide()
+         End If
+      Next
+      ' abilito bottoni Vista e Inserisci
+      btnView.Enabled = True
+      btnInsert.Enabled = True
+   End Sub
+
+   Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click
+      ' aggiorno le variabili
+      For i As Integer = 1 To NUM_VAR
+         If m_CVars(i - 1) IsNot Nothing Then
+            ' interpreto il valore, se non riesco ripristino default
+            If Not m_CVars(i - 1).FromString(GetValueEdit(i).Text) Then
+               GetValueEdit(i).Text = m_CVars(i - 1).ToString()
+            End If
+            ' aggiorno la corrispondente variabile lua
+            If Not m_CVars(i - 1).ToLua(i) Then
+               Dim sErr As String = String.Empty
+               EgtLuaGetLastError(sErr)
+               EgtOutLog(sErr)
+            End If
+         End If
+      Next
+      ' ricalcolo il disegno
+      If Not EgtLuaExecLine(LUA_CMP_DRAW & "(true)") Then
+         tbMsg.Text = "Error in component execution"
+      Else
+         Dim nErr As Integer = 0
+         EgtLuaGetGlobIntVar(LUA_CMP_VARS & ".ERR", nErr)
+         If nErr <> 0 Then
+            Dim sMsg As String = String.Empty
+            EgtLuaGetGlobStringVar(LUA_CMP_VARS & ".MSG", sMsg)
+            tbMsg.Text = sMsg
+         Else
+            tbMsg.Text = ""
+         End If
+      End If
+      EgtZoom(ZM.ALL)
+   End Sub
+
+   Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
+      ' Lancio View per aggiornare il disegno
+      btnView_Click(sender, e)
+      ' Inserisco il componente nel DB geometrico principale
+      EgtSetCurrentContext(Form1.GetCtx())
+      If Not EgtLuaExecLine(LUA_CMP_DRAW & "(false)") Then
+         Dim sErr As String = String.Empty
+         EgtLuaGetLastError(sErr)
+         EgtOutLog(sErr)
+      End If
+      Form1.LoadObjTree()
+      EgtZoom(ZM.ALL)
+      EgtSetCurrentContext(Scene2.GetCtx())
+   End Sub
+
+   Private Function GetNameEdit(ByVal nInd As Integer) As TextBox
+      Select Case nInd
+      Case 1
+         Return tbName1
+      Case 2
+         Return tbName2
+      Case 3
+         Return tbName3
+      Case 4
+         Return tbName4
+      Case 5
+         Return tbName5
+      Case 6
+         Return tbName6
+      Case 7
+         Return tbName7
+      Case 8
+         Return tbName8
+      Case 9
+         Return tbName9
+      Case Else
+         Return tbName10
+      End Select
+   End Function
+
+   Private Function GetValueEdit(ByVal nInd As Integer) As TextBox
+      Select Case nInd
+      Case 1
+         Return tbValue1
+      Case 2
+         Return tbValue2
+      Case 3
+         Return tbValue3
+      Case 4
+         Return tbValue4
+      Case 5
+         Return tbValue5
+      Case 6
+         Return tbValue6
+      Case 7
+         Return tbValue7
+      Case 8
+         Return tbValue8
+      Case 9
+         Return tbValue9
+      Case Else
+         Return tbValue10
+      End Select
+   End Function
+
+   Private Class CompoVar
+
+      ' Public Members
+      Public m_sName As String
+      Public m_nType As Integer
+      Public m_bVal As Boolean
+      Public m_nVal As Integer
+      Public m_dVal As Double
+      Public m_sVal As String
+
+      ' Constants
+      Const LUA_NAME As String = LUA_CMP_VARS & ".N"
+      Const LUA_TYPE As String = LUA_CMP_VARS & ".T"
+      Const LUA_VALUE As String = LUA_CMP_VARS & ".V"
+
+      Public Sub New()
+         m_nType = 0
+      End Sub
+
+      Public Overrides Function ToString() As String
+         Select Case m_nType
+         Case 1
+            Return m_bVal.ToString()
+         Case 2
+            Return m_nVal.ToString()
+         Case 3
+            Return m_dVal.ToString(CultureInfo.InvariantCulture)
+         Case 4
+            Return m_sVal
+         End Select
+         Return ""
+      End Function
+
+      Public Function FromString(ByVal sVal As String) As Boolean
+         Select Case m_nType
+         Case 1
+            Dim bVal As Boolean = False
+            If Boolean.TryParse(sVal, bVal) Then
+               m_bVal = bVal
+               Return True
+            End If
+         Case 2
+            Dim dVal As Double
+            If EgtLuaEvalNumExpr(sVal, dVal) Then
+               m_nVal = CInt(dVal)
+               Return True
+            End If
+         Case 3
+            Dim dVal As Double
+            If EgtLuaEvalNumExpr(sVal, dVal) Then
+               m_dVal = dVal
+               Return True
+            End If
+         Case 4
+            m_sVal = sVal
+            Return True
+         End Select
+         Return False
+      End Function
+
+      Public Function ToLua(ByVal nInd As Integer) As Boolean
+         Select Case m_nType
+         Case 1
+            Return EgtLuaSetGlobBoolVar(LUA_VALUE & nInd.ToString(), m_bVal)
+         Case 2
+            Return EgtLuaSetGlobIntVar(LUA_VALUE & nInd.ToString(), m_nVal)
+         Case 3
+            Return EgtLuaSetGlobNumVar(LUA_VALUE & nInd.ToString(), m_dVal)
+         Case 4
+            Return EgtLuaSetGlobStringVar(LUA_VALUE & nInd.ToString(), m_sVal)
+         End Select
+         Return False
+      End Function
+
+      Public Function NameTypeValueFromLua(ByVal nInd As Integer) As Boolean
+         Dim bOk As Boolean = True
+         bOk = bOk AndAlso EgtLuaGetGlobStringVar(LUA_NAME & nInd.ToString(), m_sName)
+         bOk = bOk AndAlso EgtLuaGetGlobIntVar(LUA_TYPE & nInd.ToString(), m_nType)
+         Select Case m_nType
+         Case 1
+            Return bOk AndAlso EgtLuaGetGlobBoolVar(LUA_VALUE & nInd.ToString(), m_bVal)
+         Case 2
+            Return bOk AndAlso EgtLuaGetGlobIntVar(LUA_VALUE & nInd.ToString(), m_nVal)
+         Case 3
+            Return bOk AndAlso EgtLuaGetGlobNumVar(LUA_VALUE & nInd.ToString(), m_dVal)
+         Case 4
+            Return bOk AndAlso EgtLuaGetGlobStringVar(LUA_VALUE & nInd.ToString(), m_sVal)
+         End Select
+         Return False
+      End Function
+
+   End Class
+
+End Class

ConstIni.vb

@@ -67,6 +67,13 @@ Public Const K_EXTSSTEP As String = "ExtSStep"
 Public Const K_MINLNCOLOR As String = "MinLnColor"
 Public Const K_MAJLNCOLOR As String = "MajLnColor"
 
+Public Const S_TABTEST As String = "TabTest"
+Public Const K_SHOWTT As String = "Show"
+
+Public Const S_COMPO As String = "Compo"
+Public Const K_CMPWINPLACE As String = "WinPlace"
+Public Const K_COMPODIR As String = "CompoDir"
+
 Public Const S_MACH As String = "Mach"
 Public Const K_MACHINESDIR As String = "MachinesDir"
 

EgtInterface.vb

@@ -122,7 +122,7 @@ Structure Vector3d
          dAngOrizzDeg = 0
       ' se diretto come Z
       ElseIf Math.Abs(x) < EPS_ZERO And Math.Abs(y) < EPS_ZERO Then
-         dAngVertDeg = IIf(z > 0, 0, 180)
+         dAngVertDeg = If(z > 0, 0, 180)
          dAngOrizzDeg = 0
       ' se altrimenti nel piano XY
       ElseIf Math.Abs(z) < EPS_ZERO Then
@@ -814,17 +814,31 @@ End Function
 
 
 '---------- GeomDb -------------------------------------------------------------
-<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitGeomDB")>
-Private Function EgtInitGeomDB_32() As Integer
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitContext")>
+Private Function EgtInitContext_32() As Integer
 End Function
-<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitGeomDB")>
-Private Function EgtInitGeomDB_64() As Integer
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitContext")>
+Private Function EgtInitContext_64() As Integer
 End Function
-Public Function EgtInitGeomDB() As Integer
+Public Function EgtInitContext() As Integer
    If IntPtr.Size = 4 Then
-      Return EgtInitGeomDB_32()
+      Return EgtInitContext_32()
    Else
-      Return EgtInitGeomDB_64()
+      Return EgtInitContext_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtDeleteContext")>
+Private Function EgtDeleteContext_32(ByVal nCtx As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtDeleteContext")>
+Private Function EgtDeleteContext_64(ByVal nCtx As Integer) As Boolean
+End Function
+Public Function EgtDeleteContext(ByVal nCtx As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtDeleteContext_32(nCtx)
+   Else
+      Return EgtDeleteContext_64(nCtx)
    End If
 End Function
 
@@ -1289,6 +1303,156 @@ End Function
 
 
 '---------- LUA Executor -------------------------------------------------------
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobBoolVar")>
+Private Function EgtLuaSetGlobBoolVar_32(ByVal sVar As String, ByVal bVal As Boolean) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobBoolVar")>
+Private Function EgtLuaSetGlobBoolVar_64(ByVal sVar As String, ByVal bVal As Boolean) As Boolean
+End Function
+Public Function EgtLuaSetGlobBoolVar(ByVal sVar As String, ByVal bVal As Boolean) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaSetGlobBoolVar_32(sVar, bVal)
+   Else
+      Return EgtLuaSetGlobBoolVar_64(sVar, bVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobIntVar")>
+Private Function EgtLuaSetGlobIntVar_32(ByVal sVar As String, ByVal nVal As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobIntVar")>
+Private Function EgtLuaSetGlobIntVar_64(ByVal sVar As String, ByVal nVal As Integer) As Boolean
+End Function
+Public Function EgtLuaSetGlobIntVar(ByVal sVar As String, ByVal nVal As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaSetGlobIntVar_32(sVar, nVal)
+   Else
+      Return EgtLuaSetGlobIntVar_64(sVar, nVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobNumVar")>
+Private Function EgtLuaSetGlobNumVar_32(ByVal sVar As String, ByVal dVal As Double) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobNumVar")>
+Private Function EgtLuaSetGlobNumVar_64(ByVal sVar As String, ByVal dVal As Double) As Boolean
+End Function
+Public Function EgtLuaSetGlobNumVar(ByVal sVar As String, ByVal dVal As Double) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaSetGlobNumVar_32(sVar, dVal)
+   Else
+      Return EgtLuaSetGlobNumVar_64(sVar, dVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobStringVar")>
+Private Function EgtLuaSetGlobStringVar_32(ByVal sVar As String, ByVal sVal As String) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobStringVar")>
+Private Function EgtLuaSetGlobStringVar_64(ByVal sVar As String, ByVal sVal As String) As Boolean
+End Function
+Public Function EgtLuaSetGlobStringVar(ByVal sVar As String, ByVal sVal As String) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaSetGlobStringVar_32(sVar, sVal)
+   Else
+      Return EgtLuaSetGlobStringVar_64(sVar, sVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobBoolVar")>
+Private Function EgtLuaGetGlobBoolVar_32(ByVal sVar As String, ByRef bVal As Boolean) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobBoolVar")>
+Private Function EgtLuaGetGlobBoolVar_64(ByVal sVar As String, ByRef bVal As Boolean) As Boolean
+End Function
+Public Function EgtLuaGetGlobBoolVar(ByVal sVar As String, ByRef bVal As Boolean) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaGetGlobBoolVar_32(sVar, bVal)
+   Else
+      Return EgtLuaGetGlobBoolVar_64(sVar, bVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobIntVar")>
+Private Function EgtLuaGetGlobIntVar_32(ByVal sVar As String, ByRef nVal As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobIntVar")>
+Private Function EgtLuaGetGlobIntVar_64(ByVal sVar As String, ByRef nVal As Integer) As Boolean
+End Function
+Public Function EgtLuaGetGlobIntVar(ByVal sVar As String, ByRef nVal As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaGetGlobIntVar_32(sVar, nVal)
+   Else
+      Return EgtLuaGetGlobIntVar_64(sVar, nVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobNumVar")>
+Private Function EgtLuaGetGlobNumVar_32(ByVal sVar As String, ByRef dVal As Double) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobNumVar")>
+Private Function EgtLuaGetGlobNumVar_64(ByVal sVar As String, ByRef dVal As Double) As Boolean
+End Function
+Public Function EgtLuaGetGlobNumVar(ByVal sVar As String, ByRef dVal As Double) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaGetGlobNumVar_32(sVar, dVal)
+   Else
+      Return EgtLuaGetGlobNumVar_64(sVar, dVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobStringVar")>
+Private Function EgtLuaGetGlobStringVar_32(ByVal sVar As String, ByRef psVal As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobStringVar")>
+Private Function EgtLuaGetGlobStringVar_64(ByVal sVar As String, ByRef psVal As IntPtr) As Boolean
+End Function
+Public Function EgtLuaGetGlobStringVar(ByVal sVar As String, ByRef sVal As String) As Boolean
+   Dim psVal As IntPtr
+   Dim bOk As Boolean
+   If IntPtr.Size = 4 Then
+      bOk = EgtLuaGetGlobStringVar_32(sVar, psVal)
+   Else
+      bOk = EgtLuaGetGlobStringVar_64(sVar, psVal)
+   End If
+   If bOk Then
+      sVal = Marshal.PtrToStringUni(psVal)
+      EgtFreeMemory(psVal)
+   Else
+      sVal = String.Empty
+   End If
+   Return bOk
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaResetGlobVar")>
+Private Function EgtLuaResetGlobVar_32(ByVal sVar As String) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaResetGlobVar")>
+Private Function EgtLuaResetGlobVar_64(ByVal sVar As String) As Boolean
+End Function
+Public Function EgtLuaResetGlobVar(ByVal sVar As String) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaResetGlobVar_32(sVar)
+   Else
+      Return EgtLuaResetGlobVar_64(sVar)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaCreateGlobTable")>
+Private Function EgtLuaCreateGlobTable_32(ByVal sVar As String) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaCreateGlobTable")>
+Private Function EgtLuaCreateGlobTable_64(ByVal sVar As String) As Boolean
+End Function
+Public Function EgtLuaCreateGlobTable(ByVal sVar As String) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaCreateGlobTable_32(sVar)
+   Else
+      Return EgtLuaCreateGlobTable_64(sVar)
+   End If
+End Function
+
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaEvalNumExpr")>
 Private Function EgtLuaEvalNumExpr_32(ByVal sLine As String, ByRef dVal As Double) As Boolean
 End Function

Form1.Designer.vb

@@ -183,6 +183,7 @@ Partial Class Form1
       Me.MruSFile6 = New System.Windows.Forms.ToolStripMenuItem()
       Me.MruSFile7 = New System.Windows.Forms.ToolStripMenuItem()
       Me.MruSFile8 = New System.Windows.Forms.ToolStripMenuItem()
+      Me.btnCompo = New System.Windows.Forms.Button()
       Me.TableLayoutPanel1.SuspendLayout()
       Me.TabControl1.SuspendLayout()
       Me.TabFile.SuspendLayout()
@@ -201,6 +202,7 @@ Partial Class Form1
       Me.TabConstruct.SuspendLayout()
       Me.TabEdit.SuspendLayout()
       Me.TabTransform.SuspendLayout()
+      Me.TabTest.SuspendLayout()
       Me.StatusStrip1.SuspendLayout()
       Me.ContextMenuTreeView1.SuspendLayout()
       Me.ContextMenuMruFiles.SuspendLayout()
@@ -2003,6 +2005,7 @@ Partial Class Form1
       'TabTest
       '
       Me.TabTest.BackColor = System.Drawing.SystemColors.Control
+      Me.TabTest.Controls.Add(Me.btnCompo)
       Me.TabTest.Location = New System.Drawing.Point(23, 4)
       Me.TabTest.Name = "TabTest"
       Me.TabTest.Padding = New System.Windows.Forms.Padding(3)
@@ -2372,6 +2375,24 @@ Partial Class Form1
       Me.MruSFile8.Size = New System.Drawing.Size(160, 22)
       Me.MruSFile8.Text = "File8"
       '
+      'btnCompo
+      '
+      Me.btnCompo.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
+      Me.btnCompo.FlatAppearance.BorderSize = 0
+      Me.btnCompo.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
+      Me.btnCompo.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+      Me.btnCompo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+      Me.btnCompo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+      Me.btnCompo.Image = CType(resources.GetObject("btnCompo.Image"), System.Drawing.Image)
+      Me.btnCompo.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+      Me.btnCompo.Location = New System.Drawing.Point(3, 2)
+      Me.btnCompo.Name = "btnCompo"
+      Me.btnCompo.Size = New System.Drawing.Size(56, 48)
+      Me.btnCompo.TabIndex = 46
+      Me.btnCompo.Text = "Compo"
+      Me.btnCompo.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+      Me.btnCompo.UseVisualStyleBackColor = False
+      '
       'Form1
       '
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2412,6 +2433,7 @@ Partial Class Form1
       Me.TabConstruct.ResumeLayout(False)
       Me.TabEdit.ResumeLayout(False)
       Me.TabTransform.ResumeLayout(False)
+      Me.TabTest.ResumeLayout(False)
       Me.StatusStrip1.ResumeLayout(False)
       Me.StatusStrip1.PerformLayout()
       Me.ContextMenuTreeView1.ResumeLayout(False)
@@ -2581,5 +2603,6 @@ End Sub
     Friend WithEvents btnFillet As System.Windows.Forms.Button
     Friend WithEvents btnExplodeSurf As System.Windows.Forms.Button
     Friend WithEvents cmdSavePartLay As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents btnCompo As System.Windows.Forms.Button
 
 End Class

Form1.resx

@@ -883,7 +883,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC2
-        DQAAAk1TRnQBSQFMAgEBDgEAAaABEAGgAhABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
+        DQAAAk1TRnQBSQFMAgEBDgEAAcgBEAHIAhABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
         AUADAAFAAwABAQEAAQgGAAEQGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
         AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
         AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
@@ -952,7 +952,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADW
-        CAAAAk1TRnQBSQFMAgEBAgEAAcABBwHAAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAegBBwHoAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -1476,6 +1476,15 @@
         2YdS/gEIUYjCPLwtix5CiFaQ2J+940IvOQgDzRJQlOAXbRneXwOKUvy6HRagMA8n768Bxa2U5rH2B55d
         AopbIFMypBP1twLFNbTMCSw+Pw6R+0rmRF0ks8f7CmFBNPhdWsYcxRDTJjFPKIWYttMHCBdJCCVzoi4o
         RCtI7JdvesFiCsLgcxpA0RIoWgJFS6BoCRQtgaIdbvgCS/kFfmOvgmgAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="btnCompo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAAd0SU1FB98HCA4yOw7NYPoAAAC4SURBVFhH7ZBBDsIwDARzReKdvIt/9MKZb3Dk
+        EUG2lGgJGyq1zraIHkapp5G9cco5bwqVz3R64BlJ27t7SYHN6gbAM5K299dLI3kLYAWSztNNQQ2AiVza
+        hev9Eo0/rtQYAF8/KgDOcLerDfxFAOtfcPfbG7D/AawKUO6upX4cAY4ALIA5HFxrRQCre4QHwOYu97AB
+        HPzByA34Ky3ADG2jpVCphEolVCqhUgmVSqhUQqUSKpVQqSOnF6xhNVQqUtiyAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

Form1.vb

@@ -56,6 +56,10 @@ Public Class Form1
       Return m_sMachinesRoot
    End Function
 
+   Public Function GetIniFile() As String
+      Return m_sIniFile
+   End Function
+
    Public Function GetDebug() As Integer
       Return m_nDebug
    End Function
@@ -64,6 +68,9 @@ Public Class Form1
       Return m_nUserLevel
    End Function
 
+   Public Function GetCtx() As Integer
+      Return Scene1.GetCtx()
+   End Function
 
 '-------------------------------- Form ------------------------------------------------------------
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
@@ -206,8 +213,11 @@ Public Class Form1
          AppendMenu(hSysMenu, MF_SEPARATOR, 0, "")
          AppendMenu(hSysMenu, MF_STRING, IDM_ABOUTBOX, "About TestEIn...")
       End If
-      ' Nascondo TabTest
-      TabControl2.TabPages.Remove(TabTest)
+      ' Visualizzo o nascondo TabTest
+      Dim bShowTabTest As Boolean = (GetPrivateProfileInt(S_TABTEST, K_SHOWTT, 0, m_sIniFile) <> 0)
+      If Not bShowTabTest Then
+         TabControl2.TabPages.Remove(TabTest)
+      End If
       ' Posizione e dimensioni del Form
       If ModifierKeys <> Keys.Shift Then
          Dim nFlag As Integer
@@ -219,7 +229,7 @@ Public Class Form1
          Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
          Me.Location = New Point(nLeft, nTop)
          Me.Size = New Size(nWidth, nHeight)
-         WindowState = IIf(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal)
+         WindowState = If(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal)
       End If
       ' Impostazioni controller
       m_Controller.SetScene(Scene1)
@@ -363,9 +373,9 @@ Public Class Form1
       ' Salvo modo di visualizzazione
       WritePrivateProfileString(S_SCENE, K_SHOWMODE, EgtGetShowMode(), m_sIniFile)
       ' Salvo stato visualizzazione direzione curve
-      WritePrivateProfileString(S_SCENE, K_CURVEDIR, IIf(EgtGetShowCurveDirection(), 1, 0), m_sIniFile)
+      WritePrivateProfileString(S_SCENE, K_CURVEDIR, If(EgtGetShowCurveDirection(), 1, 0), m_sIniFile)
       ' Salvo posizione Form
-      Dim nFlag As Integer = IIf(Me.WindowState = FormWindowState.Maximized, 1, 0)
+      Dim nFlag As Integer = If(Me.WindowState = FormWindowState.Maximized, 1, 0)
       WritePrivateProfileWinPos(S_GENERAL, K_WINPLACE, nFlag, Me.Left, Me.Top, Me.Width, Me.Height, m_sIniFile)
       ' Terminazione generale di EgtInterface
       EgtExit()
@@ -610,6 +620,7 @@ Public Class Form1
       btnMergeSurf.Enabled = bSelOk
       btnExplodeSurf.Enabled = bSelOk
       btnInvertSurf.Enabled = bSelOk
+      btnCompo.Enabled = bLayerOk
       ' Edit
       btnDelete.Enabled = bSelOk
       btnChangeLayer.Enabled = bSelOk
@@ -699,6 +710,7 @@ Public Class Form1
       SetTextAndToolTip(btnMergeSurf, 413, 414)             ' Merge  / Merge Surfaces
       SetTextAndToolTip(btnExplodeSurf, 417, 418)           ' Explode  / Explode Surfaces
       SetTextAndToolTip(btnInvertSurf, 415, 416)            ' Flip / Flip Surface Outside
+      SetTextAndToolTip(btnCompo, 419, 420)                 ' Compo / Insert Parametric Component
       ' Edit
       TabEdit.Text = EgtMsg(501)                            ' Edit
       SetTextAndToolTip(btnDelete, 503, 504)                ' Delete Objects
@@ -730,7 +742,8 @@ Public Class Form1
    End Sub
 
 
- '-------------------------------- Top Commands ---------------------------------------------------
+   '-------------------------------- Top Commands ---------------------------------------------------
+   ' ------ File -------
    Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click
       m_Controller.NewProject(True)
    End Sub
@@ -796,6 +809,7 @@ Public Class Form1
       End If
    End Sub
 
+   ' ------ View -------
    Private Sub btnWireFrame_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles btnWireFrame.CheckedChanged
       Scene1.WireFrame()
    End Sub
@@ -808,31 +822,6 @@ Public Class Form1
       Scene1.Shading()
    End Sub
 
-   Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged
-      EgtSetShowCurveDirection(chkCurveDir.Checked)
-   End Sub
-
-   Private Sub chkAnalyze_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAnalyze.CheckedChanged
-      If chkAnalyze.Checked Then
-         chkGetDist.Checked = False
-         Scene1.SetStatusAnalyze()
-      Else
-         Scene1.ResetStatusAnalyze()
-         SelectIdInObjTree(GDB_ID.NULL)
-      End If
-   End Sub
-
-   Private Sub chkGetDist_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkGetDist.CheckedChanged
-      If chkGetDist.Checked Then
-         chkAnalyze.Checked = False
-         Scene1.SetStatusGetDistance()
-         EmitStripStatusOutput("")
-      Else
-         Scene1.ResetStatusGetDistance()
-         EmitStripStatusOutput("")
-      End If
-   End Sub
-
    Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click
       Scene1.ZoomAll()
    End Sub
@@ -885,6 +874,32 @@ Public Class Form1
       Scene1.IsoViewNW()
    End Sub
 
+   Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged
+      EgtSetShowCurveDirection(chkCurveDir.Checked)
+   End Sub
+
+   Private Sub chkAnalyze_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAnalyze.CheckedChanged
+      If chkAnalyze.Checked Then
+         chkGetDist.Checked = False
+         Scene1.SetStatusAnalyze()
+      Else
+         Scene1.ResetStatusAnalyze()
+         SelectIdInObjTree(GDB_ID.NULL)
+      End If
+   End Sub
+
+   Private Sub chkGetDist_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkGetDist.CheckedChanged
+      If chkGetDist.Checked Then
+         chkAnalyze.Checked = False
+         Scene1.SetStatusGetDistance()
+         EmitStripStatusOutput("")
+      Else
+         Scene1.ResetStatusGetDistance()
+         EmitStripStatusOutput("")
+      End If
+   End Sub
+
+   ' ------ Grid -------
    Private Sub btnCplaneTop_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneTop.Click
       m_Controller.SetLastInteger(GRID_TYPE.TOP)
       m_Controller.ExecuteCommand(CMD.GRID)
@@ -950,6 +965,7 @@ Public Class Form1
 
 
    ' --------------------- Commands --------------------------------
+   ' ------ Draw -------
    Private Sub btnPoint_Click(sender As System.Object, e As System.EventArgs) Handles btnPoint.Click
       If (ModifierKeys And Keys.Control) = Keys.Control Then
          m_Controller.ExecuteCommand(CMD.FRAME)
@@ -1032,6 +1048,7 @@ Public Class Form1
       End If
    End Sub
 
+   ' ------ Create -------
    Private Sub btnPlane_Click(sender As System.Object, e As System.EventArgs) Handles btnPlane.Click
       m_Controller.ExecuteCommand(CMD.PLANE)
    End Sub
@@ -1064,6 +1081,7 @@ Public Class Form1
       m_Controller.ExecuteCommand(CMD.INVERTSURF)
    End Sub
 
+   ' ------ Modify -------
    Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
       m_Controller.SetLastInteger(GDB_ID.SEL)
       m_Controller.ExecuteCommand(CMD.DELETE)
@@ -1120,6 +1138,7 @@ Public Class Form1
       m_Controller.ExecuteCommand(CMD.SETCURVETHICKNESS)
    End Sub
 
+   ' ------ Transform -------
    Private Sub btnMove_Click(sender As System.Object, e As System.EventArgs) Handles btnMove.Click
       m_Controller.ExecuteCommand(CMD.MOVE)
    End Sub
@@ -1152,6 +1171,19 @@ Public Class Form1
       m_Controller.ExecuteCommand(CMD.OFFSET)
    End Sub
 
+   ' ------ Test -------
+   Private Sub btnCompo_Click(sender As System.Object, e As System.EventArgs) Handles btnCompo.Click
+      ' lancio dialogo componenti
+      Dim CompoDlg As New Component
+      CompoDlg.ShowDialog()
+      ' ripristino contesto principale
+      EgtSetCurrentContext(Scene1.GetCtx())
+      ' aggiorno interfaccia
+      EmitCurrPartLayer()
+      LoadObjTree()
+      EgtZoom(ZM.ALL)
+   End Sub
+
 
   '-------------------------------- KeyDown --------------------------------------------------------
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown

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.6.4")> 
-<Assembly: AssemblyFileVersion("1.6.6.4")> 
+<Assembly: AssemblyVersion("1.6.7.2")> 
+<Assembly: AssemblyFileVersion("1.6.7.2")> 

Scene.vb

@@ -137,7 +137,7 @@ Public Class Scene
    'Mettere EgtExit nell'evento FormClosing
 
    Public Sub Init()
-      m_nGseContext = EgtInitGeomDB()
+      m_nGseContext = EgtInitContext()
       EgtSetDefaultMaterial(m_DefColor)
       EgtInitScene(Handle, m_nDriver, m_b2Buff, m_nColorBits, m_nDepthBits)
       EgtSetBackground(m_BackTopColor, m_BackBotColor)
@@ -150,12 +150,23 @@ Public Class Scene
       RaiseEvent OnChangedSnapPointType(Me, m_nSnapType, True)
    End Sub
 
+   Public Sub Terminate()
+      If m_nGseContext <> 0 Then
+         EgtDeleteContext(m_nGseContext)
+         m_nGseContext = 0
+      End If
+   End Sub
+
    Public Function GetCtx() As Integer
       Return m_nGseContext
    End Function
 
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
       MyBase.OnPaint(e)
+      ' Se contesto non valido, esco subito
+      If m_nGseContext = 0 Then
+         Return
+      End If
       ' Salvo il contesto corrente e imposto quello della scena
       Dim nOldGseCtx = EgtGetCurrentContext()
       If nOldGseCtx <> m_nGseContext Then
@@ -175,6 +186,10 @@ Public Class Scene
 
    Protected Overrides Sub OnResize(e As System.EventArgs)
       MyBase.OnResize(e)
+      ' Se contesto non valido, esco subito
+      If m_nGseContext = 0 Then
+         Return
+      End If
       ' Salvo il contesto corrente e imposto quello della scena
       Dim nOldGseCtx = EgtGetCurrentContext()
       If nOldGseCtx <> m_nGseContext Then
@@ -515,7 +530,7 @@ Public Class Scene
       ElseIf m_nStatus = ST.SELPOINT Then
          Cursor = New Cursor(Me.GetType(), "SelPoint.cur")
          Dim ptP As Point3d
-         If EgtGetGraphicSnapPoint(IIf(m_nSnapType = SP.PT_GRID, SP.PT_GRID, SP.PT_SKETCH),
+         If EgtGetGraphicSnapPoint(If(m_nSnapType = SP.PT_GRID, SP.PT_GRID, SP.PT_SKETCH),
                                        e.Location, DIM_SEL, DIM_SEL, ptP) Then
             If m_bDragOn Then
                RaiseEvent OnMouseMoveSelPoint(Me, ptP)
@@ -1160,62 +1175,62 @@ Public Class Scene
       EgtZoom(ZM.OUT)
    End Sub
 
-    '---- Rendering Buttons ----
-    Public Sub WireFrame()
-        EgtSetShowMode(SM.WIREFRAME)
-    End Sub
+   '---- Rendering Buttons ----
+   Public Sub WireFrame()
+      EgtSetShowMode(SM.WIREFRAME)
+   End Sub
 
-    Public Sub HiddenLine()
-        EgtSetShowMode(SM.HIDDENLINE)
-    End Sub
+   Public Sub HiddenLine()
+      EgtSetShowMode(SM.HIDDENLINE)
+   End Sub
 
-    Public Sub Shading()
-        EgtSetShowMode(SM.SHADING)
-    End Sub
+   Public Sub Shading()
+      EgtSetShowMode(SM.SHADING)
+   End Sub
 
     '---- LookFrom Buttons ----
-    Public Sub TopView()
-        EgtSetView(VT.TOP)
-    End Sub
+   Public Sub TopView()
+      EgtSetView(VT.TOP)
+   End Sub
 
-    Public Sub FrontView()
-        EgtSetView(VT.FRONT)
-    End Sub
+   Public Sub FrontView()
+      EgtSetView(VT.FRONT)
+   End Sub
 
-    Public Sub BackView()
-        EgtSetView(VT.BACK)
-    End Sub
+   Public Sub BackView()
+      EgtSetView(VT.BACK)
+   End Sub
 
-    Public Sub LeftView()
-        EgtSetView(VT.LEFT)
-    End Sub
+   Public Sub LeftView()
+      EgtSetView(VT.LEFT)
+   End Sub
 
-    Public Sub RightView()
-        EgtSetView(VT.RIGHT)
-    End Sub
+   Public Sub RightView()
+      EgtSetView(VT.RIGHT)
+   End Sub
 
-    Public Sub BottomView()
-        EgtSetView(VT.BOTTOM)
-    End Sub
+   Public Sub BottomView()
+      EgtSetView(VT.BOTTOM)
+   End Sub
 
-    Public Sub IsoViewSW()
-        EgtSetView(VT.ISO_SW)
-    End Sub
+   Public Sub IsoViewSW()
+      EgtSetView(VT.ISO_SW)
+   End Sub
 
-    Public Sub IsoViewSE()
-        EgtSetView(VT.ISO_SE)
-    End Sub
+   Public Sub IsoViewSE()
+      EgtSetView(VT.ISO_SE)
+   End Sub
 
-    Public Sub IsoViewNE()
-        EgtSetView(VT.ISO_NE)
-    End Sub
+   Public Sub IsoViewNE()
+      EgtSetView(VT.ISO_NE)
+   End Sub
 
-    Public Sub IsoViewNW()
-        EgtSetView(VT.ISO_NW)
-    End Sub
+   Public Sub IsoViewNW()
+      EgtSetView(VT.ISO_NW)
+   End Sub
 
-    Public Sub CPlaneView()
-       EgtSetView(VT.CPLANE)
-    End Sub
+   Public Sub CPlaneView()
+      EgtSetView(VT.CPLANE)
+   End Sub
 
 End Class

SelectMulti.Designer.vb

@@ -22,26 +22,46 @@ Partial Class SelectMulti
     'Non modificarla nell'editor del codice.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+      Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
       Me.ListBox1 = New System.Windows.Forms.ListBox()
       Me.OK_Button = New System.Windows.Forms.Button()
+      Me.TableLayoutPanel1.SuspendLayout()
       Me.SuspendLayout()
       '
+      'TableLayoutPanel1
+      '
+      Me.TableLayoutPanel1.CausesValidation = False
+      Me.TableLayoutPanel1.ColumnCount = 1
+      Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+      Me.TableLayoutPanel1.Controls.Add(Me.ListBox1, 0, 0)
+      Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 1)
+      Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+      Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0)
+      Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+      Me.TableLayoutPanel1.RowCount = 2
+      Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+      Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 24.0!))
+      Me.TableLayoutPanel1.Size = New System.Drawing.Size(94, 121)
+      Me.TableLayoutPanel1.TabIndex = 1
+      '
       'ListBox1
       '
-      Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+      Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.ListBox1.FormattingEnabled = True
-      Me.ListBox1.Location = New System.Drawing.Point(0, 0)
-      Me.ListBox1.Margin = New System.Windows.Forms.Padding(0)
+      Me.ListBox1.Location = New System.Drawing.Point(1, 1)
+      Me.ListBox1.Margin = New System.Windows.Forms.Padding(1)
       Me.ListBox1.Name = "ListBox1"
-      Me.ListBox1.Size = New System.Drawing.Size(98, 108)
-      Me.ListBox1.TabIndex = 1
+      Me.ListBox1.Size = New System.Drawing.Size(92, 95)
+      Me.ListBox1.TabIndex = 3
       '
       'OK_Button
       '
-      Me.OK_Button.Location = New System.Drawing.Point(23, 109)
+      Me.OK_Button.Dock = System.Windows.Forms.DockStyle.Bottom
+      Me.OK_Button.Location = New System.Drawing.Point(20, 99)
+      Me.OK_Button.Margin = New System.Windows.Forms.Padding(20, 2, 20, 2)
       Me.OK_Button.Name = "OK_Button"
-      Me.OK_Button.Size = New System.Drawing.Size(52, 20)
+      Me.OK_Button.Size = New System.Drawing.Size(54, 20)
       Me.OK_Button.TabIndex = 2
       Me.OK_Button.Text = "OK"
       Me.OK_Button.UseVisualStyleBackColor = True
@@ -50,10 +70,9 @@ Partial Class SelectMulti
       '
       Me.AcceptButton = Me.OK_Button
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
-      Me.ClientSize = New System.Drawing.Size(104, 131)
+      Me.ClientSize = New System.Drawing.Size(94, 121)
       Me.ControlBox = False
-      Me.Controls.Add(Me.OK_Button)
-      Me.Controls.Add(Me.ListBox1)
+      Me.Controls.Add(Me.TableLayoutPanel1)
       Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
       Me.KeyPreview = True
       Me.MaximizeBox = False
@@ -66,10 +85,12 @@ Partial Class SelectMulti
       Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
       Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
       Me.Text = "MultiSel"
+      Me.TableLayoutPanel1.ResumeLayout(False)
       Me.ResumeLayout(False)
 
 End Sub
-    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
     Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
 
 End Class

SelectMulti.vb

@@ -62,19 +62,21 @@ Public Class SelectMulti
       EgtDraw()
    End Sub
 
+   Private Class SelMulItem
+
+      Public m_sTitle As String
+      Public m_nId As Integer
+
+      Public Sub New(ByVal sTitle As String, ByVal nId As Integer)
+         Me.m_sTitle = sTitle
+         Me.m_nId = nId
+      End Sub
+
+      Public Overrides Function ToString() As String
+         Return m_sTitle
+      End Function
+
+   End Class
+
 End Class
 
-Public Class SelMulItem
-   Public m_sTitle As String
-   Public m_nId As Integer
-
-   Public Sub New(ByVal sTitle As String, ByVal nId As Integer)
-      Me.m_sTitle = sTitle
-      Me.m_nId = nId
-   End Sub
-
-   Public Overrides Function ToString() As String
-      Return m_sTitle
-   End Function
-
-End Class

TestEIn.vbproj

@@ -166,6 +166,12 @@
     <Compile Include="AboutBox1.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Component.Designer.vb">
+      <DependentUpon>Component.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Component.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="ConstGen.vb" />
     <Compile Include="Controller.vb" />
     <Compile Include="ConstIni.vb" />
@@ -212,6 +218,9 @@
     <EmbeddedResource Include="AboutBox1.resx">
       <DependentUpon>AboutBox1.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Component.resx">
+      <DependentUpon>Component.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Form1.resx">
       <DependentUpon>Form1.vb</DependentUpon>
     </EmbeddedResource>
@@ -514,6 +523,9 @@
   <ItemGroup>
     <None Include="Resources\Fillet.png" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Compo.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\TestEIn\TestEInR32.exe