Visual Basic

'Imports
 
<DefaultPropertyAttribute("Gestion parametres")> _
<Serializable()> _
<XmlRootAttribute(Namespace:="", ElementName:="PARAM", IsNullable:=False)> _
Public Class Cls_Param
 
    Public _MyclsTest As new clsTest
 
 
    Public Property MyclsTest() As clsTest
        Get
            Return _MyclsTest
        End Get
        Set(ByVal value As clsTest)
            _MyclsTest = value
        End Set
    End Property
 
    <Serializable()> _
    Public Class clsTest
 
        Private _AppName As String
 
        <CategoryAttribute("Application"), _
           Browsable(True), _
           [ReadOnly](False), _
           BindableAttribute(False), _
           DesignOnly(False), _
           DescriptionAttribute("Le nom de l'application"), _
           XmlAttribute(AttributeName:="AppName")> _
            Public Property AppName() As String
            Get
                Return _AppName
            End Get
            Set(ByVal value As String)
                _AppName = value
            End Set
        End Property
 
End class
 
    Public Sub New()
        _MyclsTest = New clsTest
    End Sub
 
End Class

Public G_Param As New Cls_Param
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.PropertyGrid1.SelectedObject = G_Param
    End Sub