Class Module VB.Net Tutorial

Imports System
Module Test
  Sub Main()
    Dim f as New Class1("A", 1)
    Dim f2 as New Class1("B", 2)
    Console.WriteLine(f)
    Console.WriteLine(f2)
  End Sub
End Module
Public Class Class1
  Private Name as String
  Private Value as Integer
  Public Sub New(Name as String, Value as Integer)
    Me.Name = Name
    Me.Value = Value
  End Sub
  Public Overrides Function ToString() as String
    Return(Name & " has the value " & Value)
  End Function
End Class
A has the value 1
B has the value 2