[DK-x]

هو انت حليتها 

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.MaxLength = 10
       If TextBox1.Text.Length = 10 Then
           MsgBox("وصلت الحد الاقصى للاحرف")
       End If
   End Sub