Contact: aviboots(AT)netvision.net.il
39,906 questions
51,838 answers
573 users
Class Test Friend Sub Show() Console.WriteLine("Friend Sub Show()") End Sub End Class Module Module1 Sub Main() Dim o As Test = New Test() o.Show() End Sub End Module ' run: ' ' Friend Sub Show()