Public Class Form1
 
    Private cl1 As New Class1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Text = cl1.FindPosInArray(New Point(500, 500)).posinarray.ToString
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.Text = cl1.findcontent("Dies ist das Element X = 500 Y =" & _
        "500").content
    End Sub
End Class

Public Class Class1
    Public Structure myarray_element
        Public posinarray As Point
        Public content As String
    End Structure
 
    Private myarray As New List(Of myarray_element)
 
    Public Sub New()
        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 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
 
    Private findcontentarg As String
    Private Function findcontent(ByVal mae As myarray_element) As Boolean
        If findcontentarg = mae.content Then
            Return True
        Else
            Return False
        End If
    End Function
 
#Region "Functions"
    Public Function FindContent(ByVal cont As String) As Class1.myarray_element
        findcontentarg = cont
        Return myarray.Find(AddressOf FindContent)
    End Function
 
    Public Function FindPosInArray(ByVal pos As Point) As Class1.myarray_element
        findpointarg = pos
        Return myarray.Find(AddressOf findpoint)
    End Function
#End Region
End Class