Contact: aviboots(AT)netvision.net.il
41,640 questions
54,303 answers
573 users
Module Module1 Sub Main() Dim a As Integer = 1 Console.WriteLine(a) subTest(a) Console.WriteLine(a) End Sub Sub subTest(ByRef x As Integer) x = 99 End Sub End Module ' run: ' ' 1 ' 99