[3booody]

لو اردت مثلآ عمل خاصية لا احد يمكنه الوصول اليها الا انته اثناء التصريح اسبق بالكلمة Protected
تلاحظ الخاصية تظهر لك فقط داخل الكلاس

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Test As New MyTest
Test.Text=""'خطأ
    End Sub
End Class
Public Class MyTest
    Protected Property Text() As String
        Get
            Return "A"
        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Sub New()
        Me.Text = "B"
    End Sub
End Class