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
|