Imports System
Class Program
' Generic method that executes a function returning T
Private Shared Function Control(Of T)(ByVal f As Func(Of T)) As T
Return f()
End Function
Private Shared Function GetNumber() As Integer
Return 100
End Function
Private Shared Function GetMessage() As String
Return "abcd"
End Function
Public Shared Sub Main()
Dim number As Integer = Control(AddressOf GetNumber)
Console.WriteLine($"Number: {number}")
Dim message As String = Control(AddressOf GetMessage)
Console.WriteLine($"String: {message}")
End Sub
End Class
' run:
'
' Number: 100
' String: abcd
'