Contact: aviboots(AT)netvision.net.il
39,859 questions
51,779 answers
573 users
Imports System Public Class Test Function f() Static counter AS Integer = 0 counter += 1 Console.WriteLine(counter) End Function End Class Module Module1 Sub Main() Dim o As New Test() o.f() o.f() o.f() End Sub End Module ' run: ' ' 1 ' 2 ' 3