14 lines
299 B
Plaintext
14 lines
299 B
Plaintext
[source,vbnet,diff-id=1,diff-type=compliant]
|
|
----
|
|
Interface IBankAccount
|
|
Sub AddMoney(money As Integer)
|
|
End Interface
|
|
|
|
Class BankAccount
|
|
Implements IBankAccount
|
|
|
|
Private Sub AddMoney(money As Integer) ' Compliant: parameter's name match base name
|
|
' ...
|
|
End Sub
|
|
End Class
|
|
---- |