A.Sub Proc(x as Integer, y as Integer)
B.Sub Proc(By Val x as Integer, y as Integer)
C.Sub Proc(x as Integer, By Val y as Integer)
D.Sub Proc(By Val x as Integer, By Val y as Integer)