Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
    Dim t As New testclass
    Microsoft.VisualBasic.CallByName(t, "df", CallType.Get, "34", "5")
  End Sub
 
Public Class testclass
  Public Sub df(ByVal test As Integer, ByVal test2 As Integer)
    MsgBox("Hallo  " & test & "   " & test2)
  End Sub
  Public Sub df(ByVal test As Integer)
    MsgBox("Hallo 2  " & test)
  End Sub
End Class