Visual Basic .NET для HMI NA5 Omron

    Dim str1 As String = "str1"
    Dim str2 As String = "Str2"
    Dim command_collection As New Collection
    command_collection.Add(str1, "s1")
    command_collection.Add(str2, "s2")

Dim command_collection As New Microsoft.VisualBasic.Collection

Dim command_collection As New Dictionary(Of String, String)
Dim command_collection As New SortedList

Public Class MY_STRUCT 
    Public Name As String
    Public Number As Integer
End Class

    Dim arr1(3) As MY_STRUCT
    Dim arr2(5) As MY_STRUCT
    Dim arr3(7) As MY_STRUCT
    
    Dim command_collection As New Microsoft.VisualBasic.Collection  
 
    arr1(1).Name = "sensor 1"
    arr1(1).Number = 23
    command_collection.Add(arr1, "'first")
    command_collection.Add(arr2, "'second")
    command_collection.Add(arr3, "'third")
    
'при добавлении строки ниже возникает ошибка
    Label0.Text = command_collection("first")(1).Name

Module Module1
 
    Public Class MY_STRUCT
        Public Name As String
        Public Number As Integer
    End Class
 
    Sub Main()
        Dim command_collection As New Dictionary(Of String, MY_STRUCT())
 
        Dim arr1(3) As MY_STRUCT
        Dim arr2(5) As MY_STRUCT
 
        arr1(0) = New MY_STRUCT
 
 
        command_collection.Add("first", arr1)
        command_collection.Add("second", arr2)
 
        Dim arr() As MY_STRUCT
 
        If command_collection.TryGetValue("first", arr) Then
            arr(0).Name = "name"
        End If
 
    End Sub
 
End Module

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr1(3) As MY_STRUCT
 
        Dim command_collection As New Dictionary(Of String, MY_STRUCT())
 
        For i = 0 To arr1.Length - 1
            arr1(i) = New MY_STRUCT With {.Name = "sensor " & i.ToString, .Number = i}
        Next
       
        command_collection.Add("first", arr1)
        Me.Text = command_collection("first")(1).Name
 
    End Sub

Dim command_collection As New Microsoft.VisualBasic.Collection

Dim command_collection As New Microsoft.VisualBasic.Dictionary(Of String, MY_STRUCT())

Dim command_collection As New Dictionary(Of String, MY_STRUCT())

Dim command_collection As New SortedList
    command_collection.Item("first")(1).Name = "sens 2"

    Dim command_collection As New Microsoft.VisualBasic.Collection  
 
 
    Dim arr1(3) As MY_STRUCT
    Dim arr2(5) As MY_STRUCT
    Dim arr3(7) As MY_STRUCT
    
    arr1(1) = New MY_STRUCT
    
    
    arr1(1).Name = "sensor 1"
    arr1(1).Number = 23
    command_collection.Add(arr1, "first")
    command_collection.Add(arr2, "second")
    command_collection.Add(arr3, "third")
    
 
    Dim tmp_arr() As MY_STRUCT
    tmp_arr = command_collection.Item("first")
    Label1.Text = tmp_arr(1).Name
    tmp_name(1).Name = "rewrite_sensor"
 
    tmp_name = command_collection.Item("first")
    Label0.Text = tmp_name(1).Name