Public Class MyChangableSettings
    Private _Color As Color
    Private _Name As String
 
    Public Property Color() As Color
        Get
            Return _Color
        End Get
        Set(ByVal value As Color)
            _Color = value
        End Set
    End Property
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property
End Class

    Dim opt As New MyChangableSettings
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Prop As New PropertyGrid()
        Prop.Size = New Size(300, 250)
        Me.Controls.Add(Prop)
        Prop.SelectedObject = opt
    End Sub