It should also be mentioned that your syntax might be a bit off: Friend Class Class2 Dim _myVariable As String Dim THISDOESNTWORK as New Class1 Public Property myVariable()as string Get Return THISDOESNTWORK._message End Get Set(ByVal value as string) THISDOESNTWORK._message = value End Set End Property End Class or Friend Class Class2 Dim _myVariable As String Dim THISDOESNTWORK as New Class1 Public Property myVariable() as Class1 Get Return THISDOESNTWORK End Get Set(ByVal value as Class 1) THISDOESNTWORK= value End Set End Property End Class
Regards, Thomas Stockwell Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. Visit my Blog