Module Module1
  Sub Main()
    'cria um objeto da classe Cliente
    Dim cl As New Cliente()

    'define o nome do cliente
    cl.DefineNome("Osmar J. Silva")

    'obtém o nome do cliente
    Dim nome As String = cl.ObterNome()

    'exibe o resultado
    Console.WriteLine("O nome do cliente é: " & nome)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub

  'cria a definição da classe Cliente  
  Class Cliente
    'define a propriedade nome
    Private nome As String

    'um método que permite definir o nome do cliente
    Public Sub DefineNome(ByVal nome As String)
      Me.nome = nome
    End Sub

    'um método que permite obter o nome do cliente
    Public Function ObterNome() As String
      Return Me.nome
    End Function

  End Class
  'fim da classe 

End Module