>Can you be more explicit , give me some example that I can use.

VB is not my "native" language <s>, but here goes.

<System.ComponentModel.Category("Appearance")> 
<System.ComponentModel.DefaultValue(".t.")>
<System.Runtime.InteropServices.DispId(1)> 
Public Overridable Property Have_SD_rdb() As Boolean
        Get
            Return Me.rdbSDate.Visible ';
        End Get
        Set(ByVal value As Boolean)
                Me.rdbSDate.Visible = value ';
            End If
        End Set
End Property