Dim fn As Func(Of Integer, Integer, Integer) = AddressOf CHoge.MyAdd Dim ret As Integer = fn(iA, iB)
info.SetCode(New Byte() {&H2, &H3, &HD6, &H2A}, 2)