Public Class TextMaj  
    Inherits TextBox
    Public Function ArabicLang(ByVal wl As Boolean) As Boolean
       If wl = True Then
           'تغيير لغة لوحة المفاتيح إلى اللغة العربية 
          InputLanguage.CurrentInputLanguage = InputLanguage. _
          InstalledInputLanguages().Item(1)
          MyBase.TextAlign = HorizontalAlignment.Right
        Else
            ' تغيير لغة لوحة المفاتيح إلى اللغة الانجليزية  
          InputLanguage.CurrentInputLanguage = InputLanguage. _
          InstalledInputLanguages().Item(0)
          MyBase.TextAlign = HorizontalAlignment.Left
        End If
         End Function
     End Class 

' العربية اللغة لاختيار 
    TextMaj1.ArabicLang(True)
    
' الانجليزية اللغة لاختيار 
    TextMaj1.ArabicLang(False)

  

Public Class TextMaj
  Inherits TextBox
'--وسوف نسند فيها قيمتين عربي وإنجليزي Enum تركيب من نوع 
Enum sellang
Arabic
Englech
End Enum
'--من نوع التركيبة نفسها ليأخذ واحدة من القيم sel-هنا تعريف متغير
Private sel As sellang
'--من هنا تبدءا الخاصية 
Property SelectLanguage() As sellang
'--هنا سيتم إعادة القيمة التي يتم تحديدها في الخاصية
Get
Return (sel)
End Get
'--في هذا الجزء من الخاصية يتم تحديد أو اختيار القيمة من الخاصية
Set(ByVal value As sellang)
sel = value
If sel = sellang.Arabic Then
InputLanguage.CurrentInputLanguage = InputLanguage. _
InstalledInputLanguages().Item(1)
MyBase.TextAlign = HorizontalAlignment.Right
Else
InputLanguage.CurrentInputLanguage = InputLanguage. _
InstalledInputLanguages().Item(0)
MyBase.TextAlign = HorizontalAlignment.Left
End If
End Set
End Property
End Class
   

أما طريقه استدعاء تنفيذ الخاصية تتم بطريقتين الأولى عبر الشيفره وقت التنفيذ كما يلي :