Private Class c1
        Public _s As String
        Public _vt As VTProperty
 
        Public Property S() As String
            Get
                Return _s
            End Get
            Set(ByVal Value As String)
                _s = Value
            End Set
        End Property
 
        Public Property VT() As VTProperty
            Get
                Return _vt
            End Get
            Set(ByVal Value As VTProperty)
                _vt = Value
            End Set
        End Property
    End Class
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim c1a As New c1
        c1a.S = "Some string"
        c1a.VT = New VTProperty(33, 44)
        PropertyGrid1.SelectedObject = c1a
    End Sub