Imports System
public class MainClass
Shared Sub Main()
Dim c1 As New C()
Dim c2 As New C()
c2.Test()
c.SharedTest()
End Sub
End Class
Class C
Public Shared Sub SharedTest()
Static x As Integer
x = x + 1
console.WriteLine(x)
End Sub
Public Sub Test()
Static x As Integer
x = x + 1
console.WriteLine(x)
End Sub
End Class
|