'- استدعاء مجال الأسماء الخاص بعمل مواصفة
Imports System.ComponentModel

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