Public Class Pessoa
Public stNome As String
Public stChave As Single
Public tipo As Tipos
Enum Tipos
Normal
Administrador
End Enum
Sub New()
stNome = "Sem Nome"
stChave = ""
tipo = Tipos.Normal
End Sub
Sub New(ByVal n As String, ByVal c As Single, ByVal t As Tipos)
stNome = n
stChave = c
tipo = t
End Sub
Public Overrides Function ToString() As String
Return stNome & Space(30 - stNome.Length) & " | " &
Space(10 - stNome.Length) & stChave & " | " &
tipo.ToString()
End Function

End Class