Module YourClassTest
Sub Main()
Dim obj1 As New YourClass("AAA")
Dim obj2 As New YourClass("BBB")
Console.WriteLine(obj1.YourName)
Console.WriteLine(obj2.YourName)
End Sub ' Main
End Module
Public Class YourClass
Private yourNameValue As String ' course name for this YourClass
' constructor initializes course name with String supplied as argument
Public Sub New(ByVal name As String)
YourName = name ' initialize yourNameValue via property
End Sub ' New
' property YourName
Public Property YourName() As String
Get ' retrieve yourNameValue
Return yourNameValue
End Get
Set(ByVal value As String) ' set yourNameValue
yourNameValue = value ' store the course name in the object
End Set
End Property ' YourName
Public Sub DisplayMessage()
Console.WriteLine("Welcome to " & YourName & "!")
End Sub ' DisplayMessage
End Class ' YourClass
|