Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim r As Integer
r = theFunc(5, 6)
MsgBox(r)
End Sub
Private Function theFunc(p1 As Integer, p2 As Integer)
Return p1 + p2
End Function
Private Function theFunc(p1 As Integer, p2 As Integer, p3 As Integer)
Return p1 + p2 - p3
End Function
End Class
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ccc As New AAAAA
Dim r As Integer
r = ccc.theFunc(4, 5)
MsgBox(r)
End Sub
End Class
Class AAAAA
Inherits BBBBB
' Overloads
Public Overloads Function theFunc(p1 As Integer, p2 As Integer, p3 As Integer) As Integer
Return p1 + p2 - p3
End Function
End Class
Class BBBBB
Public Function theFunc(p1 As Integer, p2 As Integer) As Integer
Return p1 + p2
End Function
End Class