Public Class Form1
 
    Private Structure myarray_element
        Public posinarray As Point
        Public content As String
    End Structure
 
    Private myarray As New List(Of myarray_element)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For x As Integer = 0 To 999
            For y As Integer = 0 To 999
                Dim mae As New myarray_element
                mae.posinarray = New Point(x, y)
                mae.content = "Dies ist das Element X = " & x.ToString & " Y =" & _
                  "" & y.ToString
                myarray.Add(mae)
                mae = Nothing
            Next
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        findpointarg = New Point(500, 500)
        Dim sw As New Stopwatch
        sw.Start()
        Dim mae As myarray_element = myarray.Find(AddressOf findpoint)
        sw.Stop()
        Me.Text = sw.ElapsedMilliseconds & " ms wurden für die Suche benötigt"
    End Sub
 
    Private findpointarg As Point
    Private Function findpoint(ByVal mae As myarray_element) As Boolean
        If findpointarg = mae.posinarray Then
            Return True
        Else
            Return False
        End If
    End Function
End Class