22-02-13, 09:05 AM
22-02-13, 02:04 PM
22-02-13, 02:50 PM
25-02-13, 03:30 AM
طريقه اخرى
ومن الافضل ان تضعها فى الحدث lost focus بحيث عند الانتقال الى اى اداه اخرى غير التيكست بوكس يتم بحث القيمه بداخلها فلو كانت اقل من 100 يعيدها ال 100 وان كانت اكبر سيتركها كما هى .. بالتوفيق 
كود :
Dim S As String = TextBox1.Text
If IsNumeric(S) And S < 100 Then
TextBox1.Text = "100"
End If