Public Class TestControl
    Dim _ctl As Control
 
    Public Property C() As Control
        Get
            Return _ctl
        End Get
        Set(ByVal value As Control)
            _ctl = value
        End Set
    End Property
End Class

        PropertyGrid1.SelectedObject = TestControl1

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist