vb Code:
Public Class Student
private _firstName as String
private _lastName as String
private _grade as Integer
Public Sub New(pFName as String, pLName as String, pGrade as String)
_firstName = pFName
_lastName = pLName
_grade = pGrade
End Sub
Public Property FirstName as String
Get
Return _firstName
End Get
Set (value as String)
_firstName = value
End Set
End Property
Public Property LastName as String
Get
Return _lastName
End Get
Set (value as String)
_lastName = value
End Set
End Property
Public Property Grade as Integer
Get
Return _grade
End Get
Set (value as Integer)
_grade= value
End Set
End Property
End Class