1Imports System
2
3Public Class Generic9
4    Shared Function Main() As Integer
5        Dim o As Object = New Predicate(Of String)(AddressOf T)
6    End Function
7
8    Shared Function T(ByVal P As String) As Boolean
9        Return True
10    End Function
11End Class
12