Define class : Class Definition « Class Module « VB.Net Tutorial

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

Option Strict On
 Imports System

    Public Class YourClass
       Public weight As Integer
    End Class

    Public Class Tester
       Public Shared Sub Main( )
          Dim testObject As New Tester( )
          testObject.Run( )
       End Sub

       Public Sub Run( )
          Dim firstInt As Integer = 5
          Dim secondInt As Integer = firstInt

          Console.WriteLine("firstInt: {0} secondInt: {1}", firstInt, secondInt)

          secondInt = 7

          Console.WriteLine("firstInt: {0} secondInt: {1}", firstInt, secondInt)

          Dim obj As New YourClass( )

          obj.weight = 5

          Dim anotherObject As YourClass = obj

          Console.WriteLine("obj: {0}, anotherObject: {1}", obj.weight, anotherObject.weight)
          anotherObject.weight = 7

          Console.WriteLine( _
            "obj: {0}, anotherObject: {1}", obj.weight, anotherObject.weight)
       End Sub

    End Class

firstInt: 5 secondInt: 5
firstInt: 5 secondInt: 7
obj: 5, anotherObject: 5
obj: 7, anotherObject: 7