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