'宣言
Public Function FindLast( _
ByVal As System.Predicate(Of RplRec) _
) As RplRec
'使用法
Dim instance As RplRecs
Dim match As System.Predicate(Of RplRec)
Dim value As RplRec
value = instance.FindLast(match)
public RplRec FindLast(
System.Predicate<RplRec>
)