VB.Net Tutorial/Class Module/Shared

Call Shared method

Option Strict On
 Imports System
 Class YourClass 
    Private Shared instances As Integer = 0
    Private weight As Integer
    Private name As String
    Public Sub New(ByVal name As String, ByVal weight As Integer)
       instances += 1
       Me.name = name
       Me.weight = weight
    End Sub
    Public Shared Sub SharedMerthod( )
       Console.WriteLine("{0} cats adopted", instances)
    End Sub
    Public Sub TellWeight( )
       Console.WriteLine("{0} is {1} pounds",name, weight)
    End Sub
 End Class
 Module Module1
    Sub Main( )
       YourClass.SharedMerthod( )
       Dim obj As New YourClass("A", 5)
       obj.TellWeight( )
       YourClass.SharedMerthod( )
       Dim obj2 As New YourClass("B", 7)
       obj2.TellWeight( )  
       obj2.SharedMerthod( ) 
       YourClass.SharedMerthod( )      
    End Sub
 End Module

0 cats adopted
A is 5 pounds
1 cats adopted
B is 7 pounds
2 cats adopted
2 cats adopted

Shared field

Public Class Tester
    Public Shared Sub Main
        Dim Counter1 As New Counter
        Dim Counter2 As New Counter
        Console.WriteLine("Total count = " & Counter1.Count())
        Console.WriteLine("Total count = " & Counter2.Count())
        Console.WriteLine("Total count = " & Counter1.Count())
        Console.WriteLine("Total count = " & Counter2.Count())
        Console.WriteLine("Total count = " & Counter1.Count())
        Console.WriteLine("Total count = " & Counter2.Count())
        Console.WriteLine("Total count = " & Counter1.Count())
        Console.WriteLine("Total count = " & Counter2.Count())
    End Sub
End Class
Public Class Counter
    Shared Data As Integer = 0
    Public Function Count() As Integer
        Data += 1
        Return Data
    End Function
End Class

Total count = 1
Total count = 2
Total count = 3
Total count = 4
Total count = 5
Total count = 6
Total count = 7
Total count = 8