[source,vb6]
----
Public Sub SetCoordinates(ByVal x1 As Integer, ByVal y1 As Integer, ByVal z1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal z2 As Integer) ' Noncompliant
  ' ...
End Sub
----
