Classes em Vb6

[vivaldo]

Ao criar varias classes no vb, gostaria de passar elas como parametros em uma funcao.

Como faria para ler os atributos de cada classe que chega na funcao.

Classe Pessoa

codigo

nome

cidade

Classe Produto

codigo

descricao

quantidade

chamando a funcao envia

call envia(classe)

function envia(mclasse)

' aqui na funcao.. quero ler a classe e saber o atributo dela.

[kuroi]

ue é normal.

se a sua classe se chama ClasseX, faca assim:

Private Sub Funcao(x as ClasseX)
     Valor = x.Propriedade 'aqui você acessa normal.
End Sub[/code]
ai é so chamar normalmente passando o objeto no parametro.