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