Mensaje enviado por "Alex Vizuete" <avizuete@yahoo.com>

hola, te repito declárala como friend, este es un ejemplo tomado del manual del rogramador pag, 422:

 'declaracion en un modulo estandar
 Public Type udtDemo
    intA as Integer
    lngB as Long
    strC as string
 End Type

 'declaracion en la clase class1
 Private mDemo as udtDemo

 Friend Property Get Demo() as udtDemo
    Demo = mDemo
 End Property

 Friend Property Let Demo(NewDemo as udtDemo)
    mDemo = NewDemo
 End Property

 Friend Sub SetDemoParts(ByVal A as Integer, ByVal B as Long, ByVal C as String)
    mDemo.intA = A
    mDemo.lngB = B
    mDemo.strC = C
 End Property

 Public Sub ShowDemo()
    MsgBox mDemo.intA & vbCrLf & mDemo.lngB & vbcrlf &
 mDemo.strC
 End Sub

 'Codigo para utilizar la clase
 Private Sub Command1_Click()
    Dim c1A as New Class1
    Dim c1B as New Class1
    c1A.SetDemoParts 42, 1138, "hola"
    c1B.Demo = c1A.Demo
    c1B.ShowDemo
 End Sub

 Saludos
 Alex.

> --- Paco Reinoso <reinoso@mercuryin.es> wrote:
> He copiado literalmente tu ejemplo y me da uno de tantos errores con los que
> ya me habia enfrentado... quizá esté aqui todo el problema....
> "Cannot define a Public user-defined type within a private object module"
> ¿una clase por defecto se crea como privada?
> ¿como se hace "publica" una clase?
>
> Paco Reinoso.