jj: add gui for choice lists

TestGUI/Form1.vb

@@ -65,4 +65,25 @@ Public Class Form1
             GridView1.Columns.Clear()
         End If
     End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Dim items As New List(Of String)
+
+        items = _windream.GetChoicelistItems(ComboBox1.Text)
+
+        MsgBox("choicelist items:" & vbNewLine & (String.Join(vbNewLine, items.ToArray)))
+    End Sub
+
+    Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
+        Dim lists = _windream.GetChoiceLists()
+
+        ComboBox1.Items.Clear()
+
+        For Each list As String In lists
+            ComboBox1.Items.Add(list)
+        Next
+
+        ComboBox1.DroppedDown = True
+
+    End Sub
 End Class