Namespace A    
 
public class A
 
Dim a As Demonstrator = New Demonstrator()
 
'Zugriff auf _name wie folgt:
 
a.Name = usw.   
 
 
end class
 
 
    Public Class Demonstrator
 
        Private _name As String
        Public X As Integer
 
	Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property
 
    end class
 
 
end namespace

mfg
Ellen