Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        'Initialize the class

        Dim david As Person = New Person()

    End Sub

End Module

Public Class Person

    Public Property DateOfBirth As Date

    Public Property Name As String

    Public Sub Speak(ByVal sentence As String)

        Console.WriteLine(sentence)

    End Sub

End Class