ZooFlow/Test: work on indexing

GUIs.ZooFlow/frmtest.Designer.vb

@@ -41,8 +41,9 @@ Partial Class frmtest
         Me.Label1 = New System.Windows.Forms.Label()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.ListBox1 = New System.Windows.Forms.ListBox()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.txtAttributeName = New System.Windows.Forms.TextBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.txtAttibuteValue = New System.Windows.Forms.TextBox()
         Me.GroupBox1.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -210,28 +211,36 @@ Partial Class frmtest
         Me.ListBox1.Size = New System.Drawing.Size(200, 329)
         Me.ListBox1.TabIndex = 23
         '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(205, 142)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(187, 23)
-        Me.Button1.TabIndex = 17
-        Me.Button1.Text = "GetAttribute"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
         'txtAttributeName
         '
-        Me.txtAttributeName.Location = New System.Drawing.Point(398, 144)
+        Me.txtAttributeName.Location = New System.Drawing.Point(205, 236)
         Me.txtAttributeName.Name = "txtAttributeName"
-        Me.txtAttributeName.Size = New System.Drawing.Size(165, 20)
+        Me.txtAttributeName.Size = New System.Drawing.Size(115, 20)
         Me.txtAttributeName.TabIndex = 24
         Me.txtAttributeName.Text = "InvoiceNr"
         '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(12, 234)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(187, 23)
+        Me.Button2.TabIndex = 17
+        Me.Button2.Text = "GetAttribute"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'txtAttibuteValue
+        '
+        Me.txtAttibuteValue.Location = New System.Drawing.Point(326, 236)
+        Me.txtAttibuteValue.Name = "txtAttibuteValue"
+        Me.txtAttibuteValue.Size = New System.Drawing.Size(100, 20)
+        Me.txtAttibuteValue.TabIndex = 25
+        '
         'frmtest
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(865, 450)
+        Me.Controls.Add(Me.txtAttibuteValue)
         Me.Controls.Add(Me.txtAttributeName)
         Me.Controls.Add(Me.ListBox1)
         Me.Controls.Add(Me.GroupBox1)
@@ -241,7 +250,7 @@ Partial Class frmtest
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button8)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button7)
@@ -278,6 +287,7 @@ Partial Class frmtest
     Friend WithEvents Label1 As Label
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents ListBox1 As ListBox
-    Friend WithEvents Button1 As Button
     Friend WithEvents txtAttributeName As TextBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents txtAttibuteValue As TextBox
 End Class

GUIs.ZooFlow/frmtest.vb

@@ -115,7 +115,7 @@ Public Class frmtest
         cmbObjectStoreType.SelectedIndex = 0
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Try
             Dim oValue = My.Application.Service.Client.GetVariableValue(txtIDB_OBJ_ID.Text, txtAttributeName.Text)
 
@@ -123,6 +123,7 @@ Public Class frmtest
                 ListBox1.Items.Add("Value is nothing")
             Else
                 ListBox1.Items.Add(oValue.Value)
+                txtAttibuteValue.Text = oValue.Value
             End If
 
         Catch ex As Exception