مشكلة في تحديد خانات الحروف في text وادخال الارقام فقط

1- فى حدث الـ KeyPress للـ Textbox ضع الكود التالى :

Select Case KeyAscii
	Case Is < 32			   ' Control keys are OK.
	Case 48 To 57			  ' This is a digit.
	Case Else				  ' Reject any other key.
		KeyAscii = 0
End Select

2- فى الخاصية MaxLenght أكتب 12

اسف اخي تعبتك معاي

كيف اجد الحدث KeyPress

ارجوا كتابة الكود اسم التكست text2.text

وشكرا مقدما

الف شكر اخي لقيت الحل لكن كيف استطيع استخرج مسج بوكس ينبهه عند ادخال حروف بان التكست بوكس لايقبل الا ارقام

Select Case KeyAscii
	Case Is < 32			   ' Control keys are OK.
	Case 48 To 57			  ' This is a digit.
	Case Else
		MsgBox "Add your message here"
End Select

الف الف الف الف شكر خواي .....

ماقصرت