Class Module VB.Net Tutorial

Option Strict On
 Imports System
 Interface Printable
     Sub Read( )
     Sub Write(ByVal obj As Object)
     Property Status( ) As Integer
 End Interface 
 Public Class Document
     Implements Printable
     Public Sub New(ByVal s As String)
         Console.WriteLine("Creating document with: {0}", s)
     End Sub
     Public Sub Read( ) Implements Printable.Read
         Console.WriteLine("Implementing the Read Method for Printable")
     End Sub
     Public Sub Write(ByVal o As Object) Implements Printable.Write
         Console.WriteLine("Implementing the Write Method for Printable")
     End Sub
     Public Property Status( ) As Integer Implements Printable.Status
         Get
             Return myStatus
         End Get
         Set(ByVal Value As Integer)
             myStatus = Value
         End Set
     End Property
     Private myStatus As Integer = 0
 End Class
 Class Tester
     Public Shared Sub Main( )
         Dim doc As New Document("Test Document")
         doc.Status = -1
         doc.Read( )
         Console.WriteLine("Document Status: {0}", doc.Status)
     End Sub 
 End Class
Creating document with: Test Document
Implementing the Read Method for Printable
Document Status: -1