Hi David, Can i ask you something for the code : Public Sub New(ByVal name As String, ByVal FirstName As String) MyBase.New(name) _firstName = FirstName End Sub Public Sub New(ByVal name As String, ByVal FirstName As String, ByVal type As String) MyBase.New(name, type) _firstName = FirstName End Sub i dont know what does MyBase.New(name) means Best Regards Herbert