Imports System
Imports System.Reflection
Imports System.Windows.Forms

Class MyClass1
  Sub Test()
    MessageBox.Show("Test1")
  End Sub
End Class
 
Class MyClass2
  Sub Test()
    MessageBox.Show("Test2")
  End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
  Dim MyType1 As Type = GetType(MyClass1)
 
  Dim A1 As [Assembly] = [Assembly].GetAssembly(MyType1)
 
  Dim C1 As Object = A1.CreateInstance(MyType1.FullName)
 
  MyType1.GetMethod("Test").Invoke(C1, New Object() {})
 
  ' * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 
  Dim MyType2 As Type = GetType(MyClass2)
 
  Dim A2 As [Assembly] = [Assembly].GetAssembly(MyType2)
 
  Dim C2 As Object = A2.CreateInstance(MyType2.FullName)
 
  MyType2.GetMethod("Test").Invoke(C2, New Object() {})
 
End Sub