ZooFlow/Test: work on indexing

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