[kslawy]

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged        
Dim Word As String = "vb4arb"        
If TextBox1.Text.Length < 6 OrElse Not TextBox1.Text.StartsWith(Word) Then     
TextBox1.Text = Word
End If
End Sub 


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