How to make AML score request works in VB.NET?

See more:

C#

VB

Azure

collections

dictionary

, +

Hi,

How to make the generated code in Azure Machine Learning works on VB.NET?
I'm stuck on part of defining scorerequest variable value.

Original code from C#:

public class StringTable
{
	public string[] ColumnNames { get; set; }
	public string[,] Values { get; set; }
}
class Program
{
			var scoreRequest = new
			{

				Inputs = new Dictionary<string, stringtable=""> () { 
					{ 
						"input1", 
						new StringTable() 
						{
							ColumnNames = new string[] {"DATA1", "DATA2", "DATA3", "DATA4", "DATA5", "DATA6"},
							Values = new string[,] {  { "0", "0", "0", "0", "0", "0"},  { "0", "0", "0", "0", "0", "0"},  }
						}
					},
				},
				GlobalParameters = new Dictionary<string, string="">() {}
			};
}

I'm not quite understand what the things that make it different. The main objective code are the "scoreRequest".

What I have tried:

Public Class StringTable
    Private privateColumnNames As String()
    Public Property ColumnNames() As String()
        Get
            Return privateColumnNames
        End Get
        Set(ByVal value As String())
            privateColumnNames = value
        End Set
    End Property
    Private privateValues As String(,)
    Public Property Values() As String(,)
        Get
            Return privateValues
        End Get
        Set(ByVal value As String(,))
            privateValues = value
        End Set
    End Property
End Class
Module Module1
	Dim scoreRequest = New With {Key .Inputs = New Dictionary(Of String, StringTable) (New String, StringTable() {{ "input1", New StringTable() With {.ColumnNames = New String() {"DATA1", "DATA2", "DATA3", "DATA4", "DATA5", "DATA6"}, .Values = New String(, ) { { "0", "0", "0", "0", "0", "0"}, { "0", "0", "0", "0", "0", "0"} }} }}), Key .GlobalParameters = New Dictionary(Of String, String)() With {}}
End Module