A Programmer's Introduction to Visual Basic® .NET

The “Final” Code

The following code doesn't actually do anything, and some earlier changes are undone in this code. Still, if you are trying to keep up with the code, and want to make sure that the compilation works in the next section, here is how your code inside the Healthcare project should look:

 Public Class Patient Dim msFirstName As String Dim PhysiciansList As New Collection() Dim miPatientID As Integer Public Property FirstName() As String Get Return msFirstName End Get Set(ByVal Value As String) msFirstName = Value End Set End Property Default Public ReadOnly Property Physicians _ (ByVal iIndex As Integer) As Physician Get Return CType(PhysiciansList(iIndex), Physician) End Get End Property Public Function Admit() As Boolean 'add patient ...