Imports ProductiePitching

Public Class Employee
    Implements IEmployee

    Public Property PersonelNumber As Integer Implements IEmployee.PersonelNumber
    Public Property Picture As String Implements IEmployee.Picture
    Public Property FirstName As String Implements IEmployee.FirstName
    Public Property LastName As String Implements IEmployee.LastName
    Public Property Initials As String Implements IEmployee.Initials
    Public Property CurrentActivity As IActivity Implements IEmployee.CurrentActivity

    ''' <inheritdoc/>
    Public Property Number As Integer = -1 Implements IEmployee.Number

    Public Overrides Function Equals(obj As Object) As Boolean Implements IEmployee.Equals
        If Not TypeOf obj Is IEmployee Then
            'Not the right type.
            Return False
        End If
        'Cast to IEmployee.
        Dim employee As IEmployee = obj
        'Compare the initials.
        Return employee.Initials.Equals(Initials, StringComparison.CurrentCultureIgnoreCase)
    End Function

    Public Overrides Function ToString() As String Implements IEmployee.ToString
        Return $"Employee: {FirstName} {LastName} ({Initials})"
    End Function
End Class