Call Shared method : Shared « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Shared

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