Public Structure figure
        ''' <summary>Numer der Spielfigur (1-4) um eine interne 
        ' Unterscheidungsmöglichkeit zu haben.</summary>
        ''' <remarks></remarks>
        Public Number As Integer
        ''' <summary>Aktuelle Position der Spielfigur.</summary>
        ''' <remarks>Diese ist abhängig vom aktuellen Status der Spielfigur 
        ' z.b. Start, Spielfeld oder Ziel.</remarks>
        Public Location As Integer
        ''' <summary>Startposition der Spielfigur, dient zum zurücksetzen 
        ' wenn geschmissen wird.</summary>
        ''' <remarks></remarks>
        Public StartLocation As Integer
        ''' <summary>Feld auf welches nach dem verlassen von Start 
        ' gesprungen wird.</summary>
        ''' <remarks></remarks>
        Public FirstLocationAfterStart As Integer
        Public State As FigureState
        ''' <summary>Zeigt an, welche Augenzahl diese Figur für einen Zug 
        ' benötigt.
        ''' z.b. um vom Start ins Spiel zu kommen, oder um im Ziel (Home) 
        ' aufschliessen zu können.
        ''' Oder um nicht auf die eigene Figur zu springen.</summary>
        ''' <remarks>0 - Alle Augen möglich >0 nur bestimmte Augen möglich</remarks>
        Public NeedPoints4Move() As Integer
End Structure

Public Function GetFigurAtLocation(ByVal l As Integer) As figure
        find_figur_by_location_arg = l
        Return _figures.Find(AddressOf find_figur_by_location)
    End Function
 
Private find_figur_by_location_arg As Integer
    Private Function find_figur_by_location(ByVal f As figure) As Boolean
        If find_figur_by_location_arg = f.Location And _
           f.State = FigureState.Playing Then
            Return True
        Else
            Return False
        End If
    End Function

If cp.GetFigurAtLocation(20) Is Nothing Then

Zitat:

.... operands musst be referenc or nullable types