Imports System
Imports System.Collections.Generic
Public Structure MyStruct
Public Id As Integer
Public Name As String
Public Sub New(id As Integer, name As String)
Me.Id = id
Me.Name = name
End Sub
End Structure
Public Class Program
Public Shared Sub Main()
Dim list As List(Of MyStruct) = New List(Of MyStruct)()
list.Add(New MyStruct(1, "aaa"))
list.Add(New MyStruct(2, "bbb"))
list.Add(New MyStruct(3, "ccc"))
list.Add(New MyStruct(4, "ddd"))
' Convert List to an array of structures
Dim structArray As MyStruct() = list.ToArray()
For Each item In structArray
Console.WriteLine($"Id: {item.Id}, Name: {item.Name}")
Next
End Sub
End Class
' run:
'
' Id: 1, Name: aaa
' Id: 2, Name: bbb
' Id: 3, Name: ccc
' Id: 4, Name: ddd
'
