[source,vb6,diff-id=1,diff-type=noncompliant]
----
Sub DoSomething()
End Sub
----