クラス名でインスタンスを生成

Shared関数などで、自クラスのインスタンスを生成

    Public Shared Sub Create(ByVal opeNo As String)
        Dim m As System.Reflection.MethodBase = System.Reflection.MethodBase.GetCurrentMethod()
        Dim t As Type = Type.GetType(m.DeclaringType.FullName)
        Dim oAs Object = Activator.CreateInstance(t)
    End Sub