Contact: aviboots(AT)netvision.net.il
39,987 questions
51,931 answers
573 users
Module Module1 Sub Main() Dim n As Integer = 0 sub1(n) Console.WriteLine(n) sub2(n) Console.WriteLine(n) End Sub Sub sub1(ByVal n As Integer) n = 13 End Sub Sub sub2(ByRef n As Integer) n = 99 End Sub End Module ' run: ' ' 0 ' 99