vb6 :: Classes

'Variável Global dentro da Classe
private glbX as string

public property get X() as string
X = glbX
end sub
public property let X(sval as string)
glbX = sval
end sub