using System;
using System.Reflection;

class Sample {
  static void Main()
  {
    Console.WriteLine(typeof(System.Collections.Generic.List<>));
    Console.WriteLine(typeof(System.Collections.Generic.List<int>));
    Console.WriteLine(typeof(System.Collections.Generic.Dictionary<,>));

    Console.WriteLine(typeof(System.Action));
    Console.WriteLine(typeof(System.Action<>));
    Console.WriteLine(typeof(System.Action<,>));
    Console.WriteLine(typeof(System.Action<,,>));
  }
}

Imports System
Imports System.Reflection

Class Sample
  Shared Sub Main()
    Console.WriteLine(GetType(System.Collections.Generic.List(Of )))
    Console.WriteLine(GetType(System.Collections.Generic.List(Of Integer)))
    Console.WriteLine(GetType(System.Collections.Generic.Dictionary(Of ,)))

    Console.WriteLine(GetType(System.Action))
    Console.WriteLine(GetType(System.Action(Of )))
    Console.WriteLine(GetType(System.Action(Of ,)))
    Console.WriteLine(GetType(System.Action(Of ,,)))
  End Sub
End Class

using System;
using System.Reflection;

namespace NS {
  class T1 {} // このクラスの完全名はNS.T1となる
}

class Sample {
  static void Main()
  {
    // 現在実行しているコードが含まれるアセンブリを取得する
    var a = Assembly.GetExecutingAssembly();

    // NS名前空間のクラスT1の型情報を取得する
    var t = a.GetType("NS.T1");
  }
}

Imports System
Imports System.Reflection

Namespace NS
  ' このクラスの完全名はNS.T1となる
  Class T1
  End Class
End Namespace

Class Sample
  Shared Sub Main()
    ' 現在実行しているコードが含まれるアセンブリを取得する
    Dim a As [Assembly] = [Assembly].GetExecutingAssembly()

    ' NS名前空間のクラスT1の型情報を取得する
    Dim t As Type = a.GetType("NS.T1")
  End Sub
End Class

using System;
using System.Reflection;

namespace NS {
  class ContainerClass {
    class InnerClass {} // このクラスの完全名はNS.ContainerClass+InnerClassとなる
  }
}

class Sample {
  static void Main()
  {
    var a = Assembly.GetExecutingAssembly();

    // 入れ子になっているクラスInnerClassの型情報を取得する
    var t = a.GetType("NS.ContainerClass+InnerClass");
  }
}

Imports System
Imports System.Reflection

Namespace NS
  Class ContainerClass
    ' このクラスの完全名はNS.ContainerClass+InnerClassとなる
    Class InnerClass
    End Class
  End Class
End Namespace

Class Sample
  Shared Sub Main()
    Dim a As [Assembly] = [Assembly].GetExecutingAssembly()

    ' 入れ子になっているクラスInnerClassの型情報を取得する
    Dim t As Type = a.GetType("NS.ContainerClass.InnerClass")
  End Sub
End Class

using System;
using System.Reflection;

public class T1 {} // アセンブリ外に公開されるクラス(public)
internal class T2 {} // アセンブリ外に公開されないクラス(internal)

class Sample { // アセンブリ外に公開されないクラス(internal)
  static void Main()
  {
    var a = Assembly.GetExecutingAssembly();

    // GetTypesメソッドではすべての型が返される
    Console.WriteLine("[GetTypes]");

    foreach (var t in a.GetTypes()) {
      Console.WriteLine(t);
    }

    // GetExportedTypesメソッドではpublicな型のみが返される
    Console.WriteLine("[GetExportedTypes]");

    foreach (var t in a.GetExportedTypes()) {
      Console.WriteLine(t);
    }
  }
}

Imports System
Imports System.Reflection

Public Class T1 : End Class ' アセンブリ外に公開されるクラス(Public)
Friend Class T2 : End Class ' アセンブリ外に公開されないクラス(Friend)

Class Sample ' アセンブリ外に公開されないクラス(internal)
  Shared Sub Main()
    Dim a As [Assembly] = [Assembly].GetExecutingAssembly()

    ' GetTypesメソッドではすべての型が返される
    Console.WriteLine("[GetTypes]")

    For Each t As Type In a.GetTypes()
      Console.WriteLine(t)
    Next

    ' GetExportedTypesメソッドではPublicな型のみが返される
    Console.WriteLine("[GetExportedTypes]")

    For Each t As Type In a.GetExportedTypes()
      Console.WriteLine(t)
    Next
  End Sub
End Class

using System;
using System.Collections.Generic;
using System.Linq;
using System.Reflection;

class Sample {
  static void Main()
  {
    // System.Collections.dll(.NET Standard 1.6)をロードする
    var name = new AssemblyName("System.Collections, Version=4.0.10.0, PublicKeyToken=b03f5f7f11d50a3a");
    var assm = Assembly.Load(name);

    Console.WriteLine($"{name.FullName} -> {assm.GetName().FullName}");
    Console.WriteLine();

    // アセンブリで公開される型・他アセンブリへ転送される型の一覧と、転送先のアセンブリを表示する
    var forwardedTypes = new HashSet<Type>(assm.GetForwardedTypes());
    var exportedTypes = new HashSet<Type>(assm.GetExportedTypes());

    foreach (var t in exportedTypes.Union(forwardedTypes)) {
      Console.Write($"{t,-100}");
      Console.Write(forwardedTypes.Contains(t) ? "-> " : " @ ");
      Console.WriteLine(t.Assembly.GetName().FullName);
    }
  }
}

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Reflection

Class Sample
  Shared Sub Main()
    ' System.Collections.dll(.NET Standard 1.6)をロードする
    Dim name As New AssemblyName("System.Collections, Version=4.0.10.0, PublicKeyToken=b03f5f7f11d50a3a")
    Dim assm As [Assembly] = [Assembly].Load(name)

    Console.WriteLine($"{name.FullName} -> {assm.GetName().FullName}")
    Console.WriteLine()

    ' アセンブリで公開される型・他アセンブリへ転送される型の一覧と、転送先のアセンブリを表示する
    Dim forwardedTypes As New HashSet(Of Type)(assm.GetForwardedTypes())
    Dim exportedTypes As New HashSet(Of Type)(assm.GetExportedTypes())

    For Each t As Type In exportedTypes.Union(forwardedTypes)
      Console.Write($"{t,-100}")
      Console.Write(If(forwardedTypes.Contains(t), "-> ", " @ "))
      Console.WriteLine(t.[Assembly].GetName().FullName)
    Next
  End Sub
End Class

using System;

class Sample {
  static bool IsDelegate(Type t)
  {
    // 型がDelegate型またはDelegate型の派生クラスの場合はデリゲート型と判定する
    return t.IsSubclassOf(typeof(Delegate)) || t.Equals(typeof(Delegate));
  }

  static void Main()
  {
    foreach (var t in new[] {
      typeof(EventHandler),
      typeof(Action<,>),
      typeof(Delegate),
      typeof(MulticastDelegate),
      typeof(ICloneable),
    }) {
      Console.WriteLine("IsDelegate({0}) = {1}", t, IsDelegate(t));
    }
  }
}

Imports System

Class Sample
  Shared Function IsDelegate(ByVal t As Type) As Boolean
    ' 型がDelegate型またはDelegate型の派生クラスの場合はデリゲート型と判定する
    Return t.IsSubclassOf(GetType([Delegate])) OrElse t.Equals(GetType([Delegate]))
  End Function

  Shared Sub Main()
    For Each t As Type In New Type() { _
      GetType(EventHandler), _
      GetType(Action(Of ,)), _
      GetType([Delegate]), _
      GetType([MulticastDelegate]), _
      GetType(ICloneable) _
    }
      Console.WriteLine("IsDelegate({0}) = {1}", t, IsDelegate(t))
    Next
  End Sub
End Class

using System;
using System.Collections.Generic;
using System.Reflection;

class Sample {
  static void Main()
  {
    var t = typeof(List<int>);

    // List<int>クラスが実装するインターフェイスをすべて取得して表示する
    foreach (var ti in t.GetInterfaces()) {
      Console.WriteLine(ti);
    }
    Console.WriteLine();
  }
}

Imports System
Imports System.Collections.Generic
Imports System.Reflection

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(List(Of Integer))

    ' List(Of Integer)クラスが実装するインターフェイスをすべて取得して表示する
    For Each ti As Type In t.GetInterfaces()
      Console.WriteLine(ti)
    Next
    Console.WriteLine()
  End Sub
End Class

using System;
using System.Collections.Generic;
using System.Reflection;

class Sample {
  static void Main()
  {
    var t = typeof(List<int>);

    // List<int>がIEnumerable<T>インターフェイスを実装しているか調べる
    Console.WriteLine(t.GetInterface("System.Collections.Generic.IEnumerable`1") != null);

    // List<int>がIEnumerable<int>インターフェイスに代入可能かを調べる
    Console.WriteLine(typeof(IEnumerable<int>).IsAssignableFrom(t));
  }
}

Imports System
Imports System.Collections.Generic
Imports System.Reflection

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(List(Of Integer))

    ' List(Of Integer)がIEnumerable(Of T)インターフェイスを実装しているか調べる
    Console.WriteLine(t.GetInterface("System.Collections.Generic.IEnumerable`1") IsNot Nothing)

    ' List(Of Integer)がIEnumerable(Of Integer)インターフェイスに代入可能かを調べる
    Console.WriteLine(GetType(IEnumerable(Of Integer)).IsAssignableFrom(t))
  End Sub
End Class

using System;
using System.Reflection;

class C<T> {}

class Sample {
  static void Main()
  {
    var t = typeof(C<>);

    DisplayType(t); // ジェネリック型
    DisplayType(t.GetGenericArguments()[0]); // ジェネリック型の型パラメータ
    DisplayType(Type.MakeGenericMethodParameter(0)); // ジェネリックメソッドの型パラメータ
  }

  static void DisplayType(Type t)
  {
    Console.WriteLine($"[{t}]");
    Console.WriteLine($"{nameof(Type.IsGenericType)}? {t.IsGenericType}");
    Console.WriteLine($"{nameof(Type.IsGenericParameter)}? {t.IsGenericParameter}");
    Console.WriteLine($"{nameof(Type.IsGenericTypeParameter)}? {t.IsGenericTypeParameter}");
    Console.WriteLine($"{nameof(Type.IsGenericMethodParameter)}? {t.IsGenericMethodParameter}");
    Console.WriteLine();
  }
}

Imports System
Imports System.Reflection

Class C(Of T)
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C(Of))

    DisplayType(t) ' ジェネリック型
    DisplayType(t.GetGenericArguments()(0)) ' ジェネリック型の型パラメータ
    DisplayType(Type.MakeGenericMethodParameter(0)) ' ジェネリックメソッドの型パラメータ
  End Sub

  Shared Sub DisplayType(ByVal t As Type)
    Console.WriteLine($"[{t}]")
    Console.WriteLine($"{nameof(Type.IsGenericType)}? {t.IsGenericType}")
    Console.WriteLine($"{nameof(Type.IsGenericParameter)}? {t.IsGenericParameter}")
    Console.WriteLine($"{nameof(Type.IsGenericTypeParameter)}? {t.IsGenericTypeParameter}")
    Console.WriteLine($"{nameof(Type.IsGenericMethodParameter)}? {t.IsGenericMethodParameter}")
    Console.WriteLine()
  End Sub
End Class

using System;
using System.Reflection;

class C {
  public void M1() {}
  protected void M2() {}
  private void M3() {}
  private static void M4() {}

  public string F1 = null;
  private string F2 = null;
  private static string F3 = null;
}

class Sample {
  static void Main()
  {
    var t = typeof(C);

    // 非パブリックなインスタンスメンバのみを取得して列挙する
    foreach (var m in t.GetMembers(BindingFlags.NonPublic | BindingFlags.Instance)) {
      Console.WriteLine("{0}\t{1}", m.MemberType, m);
    }
  }
}

Imports System
Imports System.Reflection

Class C
  Public Sub M1()
  End Sub

  Protected Sub M2()
  End Sub

  Private Sub M3()
  End Sub

  Private Shared Sub M4()
  End Sub

  Public F1 As String = Nothing
  Private F2 As String = Nothing
  Private Shared F3 As String = Nothing
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C)

    ' 非パブリックなインスタンスメンバのみを取得して列挙する
    For Each m As MemberInfo In t.GetMembers(BindingFlags.NonPublic Or BindingFlags.Instance)
      Console.WriteLine("{0}{1}{2}", m.MemberType, vbTab, m)
    Next
  End Sub
End Class

using System;
using System.Reflection;

class C1 {
  public void M1() {}
}

class C2 : C1 {
  public void M2() {}
}

class Sample {
  static void Main()
  {
    var t = typeof(C2);

    // C2クラスで宣言されているメンバのみを取得して列挙する
    // (C2クラスが継承しているメンバを除外して取得する)
    foreach (var m in t.GetMembers(BindingFlags.DeclaredOnly | BindingFlags.Public | BindingFlags.Instance)) {
      Console.WriteLine("{0}\t{1}", m.MemberType, m);
    }
  }
}

Imports System
Imports System.Reflection

Class C1
  Public Sub M1()
  End Sub
End Class

Class C2
  Inherits C1

  Public Sub M2()
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C2)

    ' C2クラスで宣言されているメンバのみを取得して列挙する
    ' (C2クラスが継承しているメンバを除外して取得する)
    For Each m As MemberInfo In t.GetMembers(BindingFlags.DeclaredOnly Or BindingFlags.Public Or BindingFlags.Instance)
      Console.WriteLine("{0}{1}{2}", m.MemberType, vbTab, m)
    Next
  End Sub
End Class

using System;
using System.Reflection;

class C {
  public int P {get; set;}
}

class Sample {
  static void Main()
  {
    var t = typeof(C);

    var p = t.GetProperty("P"); // プロパティPのPropertyInfoを取得

    var getter = p.GetMethod; // プロパティPのgetアクセサメソッドを取得
    var setter = p.SetMethod; // プロパティPのsetアクセサメソッドを取得

    Console.WriteLine(getter);
    Console.WriteLine(setter);
  }
}

Imports System
Imports System.Reflection

Class C
  Public Property P As Integer
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C)

    Dim p As PropertyInfo = t.GetProperty("P") ' プロパティPのPropertyInfoを取得

    Dim getter As MethodInfo = p.GetMethod ' プロパティPのGetアクセサメソッドを取得
    Dim setter As MethodInfo = p.SetMethod ' プロパティPのSetアクセサメソッドを取得

    Console.WriteLine(getter)
    Console.WriteLine(setter)
  End Sub
End Class

using System;
using System.Reflection;

class C {
  public void M(int x) {}
  public void M(long x) {}
  public void M(int x, int y) {}
}

class Sample {
  static void Main()
  {
    var t = typeof(C);

    // 名前のみを指定してメソッドMのMethodInfoを取得しようとする
    // M(int)とM(long)とM(int, int)のどれが取得されるべき対象なのか曖昧なので、
    // 例外AmbiguousMatchExceptionがスローされる
    var m = t.GetMethod("M");
  }
}

Imports System
Imports System.Reflection

Class C
  Public Overloads Sub M(ByVal x As Integer)
  End Sub

  Public Overloads Sub M(ByVal x As Long)
  End Sub

  Public Overloads Sub M(ByVal x As Integer, ByVal y As Integer)
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C)

    ' 名前のみを指定してメソッドMのMethodInfoを取得しようとする
    ' M(Integer)とM(Long)とM(Integer, Integer)のどれが取得されるべき対象なのか曖昧なので、
    ' 例外AmbiguousMatchExceptionがスローされる
    Dim m As MethodInfo = t.GetMethod("M")
  End Sub
End Class

using System;
using System.Reflection;

class C {
  public void M(int x) {}
  public void M(long x) {}
  public void M(int x, int y) {}
}

class Sample {
  static void Main()
  {
    var t = typeof(C);

    // int型の引数を1つとるメソッドMのオーバーロードを取得する
    var m1 = t.GetMethod("M", new[] {typeof(int)});

    // long型の引数を1つとるメソッドMのオーバーロードを取得する
    var m2 = t.GetMethod("M", new[] {typeof(long)});

    // int型の引数を2つとるメソッドMのオーバーロードを取得する
    var m3 = t.GetMethod("M", new[] {typeof(int), typeof(int)});

    Console.WriteLine(m1);
    Console.WriteLine(m2);
    Console.WriteLine(m3);
  }
}

Imports System
Imports System.Reflection

Class C
  Public Overloads Sub M(ByVal x As Integer)
  End Sub

  Public Overloads Sub M(ByVal x As Long)
  End Sub

  Public Overloads Sub M(ByVal x As Integer, ByVal y As Integer)
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C)

    ' Integer型の引数を1つとるメソッドMのオーバーロードを取得する
    Dim m1 As MethodInfo = t.GetMethod("M", New Type() {GetType(Integer)})

    ' Long型の引数を1つとるメソッドMのオーバーロードを取得する
    Dim m2 As MethodInfo = t.GetMethod("M", New Type() {GetType(Long)})

    ' Integer型の引数を2つとるメソッドMのオーバーロードを取得する
    Dim m3 As MethodInfo = t.GetMethod("M", New Type() {GetType(Integer), GetType(Integer)})

    Console.WriteLine(m1)
    Console.WriteLine(m2)
    Console.WriteLine(m3)
  End Sub
End Class

using System;
using System.Reflection;

class C {
  public C(int x) {}
  public C(string x, int y) {}
  public C() {}
}

class Sample {
  static void Main()
  {
    var t = typeof(C);

    // int型の引数を一つとるコンストラクタを取得する
    var ctor1 = t.GetConstructor(new[] {typeof(int)});

    // string型とint型の引数をとるコンストラクタを取得する
    var ctor2 = t.GetConstructor(new[] {typeof(string), typeof(int)});

    // 引数のないコンストラクタを取得する
    var ctor3 = t.GetConstructor(Type.EmptyTypes);

    Console.WriteLine(ctor1);
    Console.WriteLine(ctor2);
    Console.WriteLine(ctor3);
  }
}

Imports System
Imports System.Reflection

Class C
  Public Sub New(ByVal x As Integer)
  End Sub

  Public Sub New(ByVal x As String, ByVal y As Integer)
  End Sub

  Public Sub New()
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C)

    ' Integer型の引数を一つとるコンストラクタを取得する
    Dim ctor1 As ConstructorInfo = t.GetConstructor(New Type() {GetType(Integer)})

    ' String型とInteger型の引数をとるコンストラクタを取得する
    Dim ctor2 As ConstructorInfo = t.GetConstructor(New Type() {GetType(String), GetType(Integer)})

    ' 引数のないコンストラクタを取得する
    Dim ctor3 As ConstructorInfo = t.GetConstructor(Type.EmptyTypes)

    Console.WriteLine(ctor1)
    Console.WriteLine(ctor2)
    Console.WriteLine(ctor3)
  End Sub
End Class

using System;
using System.Reflection;

class C {
  public void M(int i) {}
  public void M<T>(T t) {}
  public void M<U, V>(U u, V v) {}
}

class Sample {
  static void Main()
  {
    var t = typeof(C);

    // メソッド名のみでは対象が限定できないため、AmbiguousMatchExceptionとなる
    //var ma = t.GetMethod("M"));

    // 引数リストが(int)のメソッドMを取得する
    var m1 = t.GetMethod("M", new[] {typeof(int)});

    // 引数リストが(long)のメソッドMを取得しようとする
    // M<T>のTをlongに型付けしたものが取得されるのではなく、M(long)を取得しようとするが、存在しないため、nullが返される
    var m2 = t.GetMethod("M", new[] {typeof(long)});

    // 型パラメータTをとり、引数リストが(T)のメソッドMを取得する
    // GetMethodの引数genericParameterCountに型パラメータの数として1を指定し、
    // 引数リストtypesにはType.MakeGenericMethodParameterメソッドで0番目の型パラメータに対応する型を作成して指定する
    var m3 = t.GetMethod(
      "M", // 名前が"M"のメソッドを対象とする
      genericParameterCount: 1, // 型パラメータの数が1のものを対象とする
      types: new[] {
        Type.MakeGenericMethodParameter(0) // Type.MakeGenericMethodParameterメソッドで0番目の型パラメータ(T)を表す型を作成して、引数リストとして指定する
      }
    );

    // 型パラメータU, Vをとり、引数リストが(U, V)のメソッドMを取得する
    var m4 = t.GetMethod(
      "M", // 名前が"M"のメソッドを対象とする
      genericParameterCount: 2, // 型パラメータの数が2のものを対象とする
      types: new[] {
        Type.MakeGenericMethodParameter(0), // 0番目の型パラメータ(U)を表す型
        Type.MakeGenericMethodParameter(1)  // 1番目の型パラメータ(V)を表す型
      }
    );

    Console.WriteLine($"{nameof(m1)} = {m1}");
    Console.WriteLine($"{nameof(m2)} = {m2}");
    Console.WriteLine($"{nameof(m3)} = {m3}");
    Console.WriteLine($"{nameof(m4)} = {m4}");
  }
}

Imports System
Imports System.Reflection

Class C
  Public Overloads Sub M(ByVal x As Integer)
  End Sub

  Public Overloads Sub M(Of T)(ByVal _t As T)
  End Sub

  Public Overloads Sub M(Of U, V)(ByVal _u As U, ByVal _v As V)
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C)

    ' メソッド名のみでは対象が限定できないため、AmbiguousMatchExceptionとなる
    'Dim ma As MethodInfo = t.GetMethod("M")

    ' 引数リストが(Integer)のメソッドMを取得する
    Dim m1 As MethodInfo = t.GetMethod("M", New Type() {GetType(Integer)})

    ' 引数リストが(Long)のメソッドMを取得しようとする
    ' M(Of T)のTをLongに型付けしたものが取得されるのではなく、M(Long)を取得しようとするが、存在しないため、Nothingが返される
    Dim m2 As MethodInfo = t.GetMethod("M", New Type() {GetType(Long)})

    ' 型パラメータTをとり、引数リストが(T)のメソッドMを取得する
    ' GetMethodの引数genericParameterCountに型パラメータの数として1を指定し、
    ' 引数リストtypesにはType.MakeGenericMethodParameterメソッドで0番目の型パラメータに対応する型を作成して指定する
    Dim m3 As MethodInfo = t.GetMethod(
      "M", ' 名前が"M"のメソッドを対象とする
      genericParameterCount := 1, ' 型パラメータの数が1のものを対象とする
      types := New Type() {
        Type.MakeGenericMethodParameter(0) ' Type.MakeGenericMethodParameterメソッドで0番目の型パラメータ(T)を表す型を作成して、引数リストとして指定する
      }
    )

    ' 型パラメータU, Vをとり、引数リストが(U, V)のメソッドMを取得する
    Dim m4 As MethodInfo = t.GetMethod(
      "M", ' 名前が"M"のメソッドを対象とする
      genericParameterCount := 2, ' 型パラメータの数が2のものを対象とする
      types := New Type() {
        Type.MakeGenericMethodParameter(0), ' 0番目の型パラメータ(U)を表す型
        Type.MakeGenericMethodParameter(1)  ' 1番目の型パラメータ(V)を表す型
      }
    )

    Console.WriteLine($"{NameOf(m1)} = {m1}")
    Console.WriteLine($"{NameOf(m2)} = {m2}")
    Console.WriteLine($"{NameOf(m3)} = {m3}")
    Console.WriteLine($"{NameOf(m4)} = {m4}")
  End Sub
End Class

using System;
using System.Reflection;

// 2つの型パラメータTCx, TCyを取るジェネリック型
class C<TCx, TCy> {
  // ジェネリック型の型パラメータを引数にとるメソッド
  public void M(TCx tcx) {}
  public void M(TCx tcx, TCy tcy) {}
  // ジェネリック型の型パラメータと、メソッドの型パラメータを引数にとるジェネリックメソッド
  public void M<TMx>(TCx tcx, TMx tmx) {}
  public void M<TMx, TMy>(TCy tcy, TMx tmx, TMy tmy) {}
}

class Sample {
  static void Main()
  {
    var t = typeof(C<,>);

    // 引数リストが(TCx)のメソッドを取得する
    var m1 = t.GetMethod("M", types: new[] {
      t.GetGenericArguments()[0] // 型パラメータTCx(ジェネリック型C<,>の0番目の型パラメータ)
    });

    // 引数リストが(TCx, TCy)のメソッドを取得する
    var m2 = t.GetMethod("M", types: new[] {
      t.GetGenericArguments()[0], // 型パラメータTCx(ジェネリック型C<,>の0番目の型パラメータ)のType
      t.GetGenericArguments()[1]  // 型パラメータTCy(ジェネリック型C<,>の1番目の型パラメータ)のType
    });

    // 引数リストが(TCx, TMx)のメソッドを取得する
    var m3 = t.GetMethod("M",
      genericParameterCount: 1, // 型パラメータが1つのジェネリックメソッド
      types: new[] {
        t.GetGenericArguments()[0],         // 型パラメータTCx(ジェネリック型C<,>の0番目の型パラメータ)のType
        Type.MakeGenericMethodParameter(0)  // 型パラメータTMx(ジェネリックメソッドM<>の0番目の型パラメータ)のType
      }
    );

    // 引数リストが(TCy, TMx, TMy)のメソッドを取得する
    var m4 = t.GetMethod("M",
      genericParameterCount: 2, // 型パラメータが2つのジェネリックメソッド
      types: new[] {
        t.GetGenericArguments()[1],         // 型パラメータTCy(ジェネリック型C<,>の1番目の型パラメータ)のType
        Type.MakeGenericMethodParameter(0), // 型パラメータTMx(ジェネリックメソッドM<,>の0番目の型パラメータ)のType
        Type.MakeGenericMethodParameter(1)  // 型パラメータTMy(ジェネリックメソッドM<,>の1番目の型パラメータ)のType
      }
    );

    Console.WriteLine($"{nameof(m1)} = {m1}");
    Console.WriteLine($"{nameof(m2)} = {m2}");
    Console.WriteLine($"{nameof(m3)} = {m3}");
    Console.WriteLine($"{nameof(m4)} = {m4}");
  }
}

Imports System
Imports System.Reflection

' 2つの型パラメータTCx, TCyを取るジェネリック型
Class C(Of TCx, TCy)
  ' ジェネリック型の型パラメータを引数にとるメソッド
  Public Overloads Sub M(ByVal _tcx As TCx)
  End Sub

  Public Overloads Sub M(ByVal _tcx As TCx, ByVal _tcy As TCy)
  End Sub

  ' ジェネリック型の型パラメータと、メソッドの型パラメータを引数にとるジェネリックメソッド
  Public Overloads Sub M(Of TMx)(ByVal _tcx As TCx, ByVal _tmx As TMx)
  End Sub

  Public Overloads Sub M(Of TMx, TMy)(ByVal _tcy As TCy, ByVal _tmx As TMx, ByVal _tmy As TMy)
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim t As Type = GetType(C(Of ,))

    ' 引数リストが(TCx)のメソッドを取得する
    Dim m1 As MethodInfo = t.GetMethod("M", types := New Type() {
      t.GetGenericArguments()(0) ' 型パラメータTCx(ジェネリック型C(Of ,)の0番目の型パラメータ)
    })

    ' 引数リストが(TCx, TCy)のメソッドを取得する
    Dim m2 As MethodInfo = t.GetMethod("M", types := New Type() {
      t.GetGenericArguments()(0), ' 型パラメータTCx(ジェネリック型C(Of ,)の0番目の型パラメータ)のType
      t.GetGenericArguments()(1)  ' 型パラメータTCy(ジェネリック型C(Of ,)の1番目の型パラメータ)のType
    })

    ' 引数リストが(TCx, TMx)のメソッドを取得する
    Dim m3 As MethodInfo = t.GetMethod("M",
      genericParameterCount := 1, ' 型パラメータが1つのジェネリックメソッド
      New Type() {
        t.GetGenericArguments()(0),         ' 型パラメータTCx(ジェネリック型C(Of ,)の0番目の型パラメータ)のType
        Type.MakeGenericMethodParameter(0)  ' 型パラメータTMx(ジェネリックメソッドM(Of)の0番目の型パラメータ)のType
      }
    )

    ' 引数リストが(TCy, TMx, TMy)のメソッドを取得する
    Dim m4 As MethodInfo = t.GetMethod("M",
      genericParameterCount := 2, ' 型パラメータが2つのジェネリックメソッド
      New Type() {
        t.GetGenericArguments()(1),         ' 型パラメータTCy(ジェネリック型C(Of ,)の1番目の型パラメータ)のType
        Type.MakeGenericMethodParameter(0), ' 型パラメータTMx(ジェネリックメソッドM(Of ,)の0番目の型パラメータ)のType
        Type.MakeGenericMethodParameter(1)  ' 型パラメータTMy(ジェネリックメソッドM(Of ,)の1番目の型パラメータ)のType
      }
    )

    Console.WriteLine($"{NameOf(m1)} = {m1}")
    Console.WriteLine($"{NameOf(m2)} = {m2}")
    Console.WriteLine($"{NameOf(m3)} = {m3}")
    Console.WriteLine($"{NameOf(m4)} = {m4}")
  End Sub
End Class