procedure TForm1.Button1Click(Sender: TObject);
var
  item: String;
begin
  // vamos adicionar um item vindo de uma variável
  item := 'Sou o primeiro item';
  ListBox1.Items.Add(item);

  // vamos adicionar outro item...desta vez um literal
  ListBox1.Items.Add('Sou o segundo item');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  item: String;
  indice: Integer;
begin
  // vamos adicionar um item vindo de uma variável
  // e obter o seu índice
  item := 'Sou o primeiro item';
  indice := ListBox1.Items.Add(item);

  ShowMessage('O novo ítem foi inserido no índice: ' +
    IntToStr(indice));
end;

# Definição da classe Cliente
class Cliente
   attr_accessor :nome, :idade
   
   def initialize(nome, idade)
      @nome = nome
      @idade = idade
   end
end

# Cria uma instância da classe Cliente e inicializa as
# variáveis de instância @nome e @idade
cliente = Cliente.new("Osmar J. Silva", 35)

# Acessa as variáveis de instância sem a necessidade
# de métodos acessórios
puts cliente.nome
puts cliente.idade

# Modifica as variáveis de instância sem a necessidade
# de métodos mutatórios
cliente.nome = "Carlos da Silva"
cliente.idade = 56

# Obtém os resultados
puts cliente.nome
puts cliente.idade

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "VejA esta FRASe"

    ' vamos mostrar a frase original
    Console.WriteLine("Frase original: " & frase)

    ' transforma tudo em letras maiúsculas
    frase = frase.ToUpper()

    ' agora mostramos a frase em letras maiúsculas
    Console.WriteLine("Em letras maiúsculas: " & frase)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

Graphics.DrawString(String, Font, Brush, Single, Single)

private void button1_Click(object sender, EventArgs e){
  // vamos obter o Graphics do formulário
  Graphics g = this.CreateGraphics();

  // vamos desenhar a string "Arquivo de Códigos"
  g.DrawString("Arquivo de Códigos", this.Font, new 
    SolidBrush(Color.Red), 40, 60);

  // vamos liberar o objeto Graphics
  g.Dispose();
}

g.DrawString("Arquivo de Códigos", new Font("Verdana", 30), 
  new SolidBrush(Color.Red), 40, 60);

g.DrawString("Arquivo de Códigos", new Font("Verdana", 30), 
  new SolidBrush(Color.Red), new PointF(80f, 120f));