Overload

OVERLOAD

Buat  form seperti dibawah ini

 

 masukkan codingnya :

 Function ox(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

        ox = bil1 + bil2

    End Function

    Function ox(ByVal bil1 As Integer, ByVal bil2 As Integer, ByValbil3 As Integer) 

    As Integer

        ox = bil1 + bil2 + bil3

    End Function

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

        TextBox1.Text = ox(31,8,92)

    End Sub

dan hasilnya adalah :