Private Class c1
 
        Public Sub s1(ByVal x() As Object)
            For Each z In x
                Debug.WriteLine(z.ToString())
            Next
        End Sub
 
    End Class
 
 
    Private Sub Test()
        Dim c1a As New c1
 
        Dim mi As MethodInfo = GetType(c1).GetMethod("s1")
        mi.Invoke(c1a, New Object() {New Object() {1, "xxx", 3.1415}})
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist