https://barnamenevis.org/showpo...&postcount=101

با استفاده از کلمه کلیدی params مانند نمونه زیر :
کد:

Public Function Add(ByVal list() As Integer) As Integer

        Dim sum As Integer = 0

        For Each i As Integer In list

            sum += i

        Next

        Return sum

    End Function



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        Dim ans2 As Integer = Add(New Integer() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10})



    End Sub