[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
----