هل يوجد خاصية ان اجعل ل text ياخذ ارقام فقط

هذا كود بالفيجول بيسك 6 تمنى أن يفيدك

Private Sub Text1_KeyPress(KeyAscii As Integer)

	Select Case KeyAscii
	Case 49 To 56:
	Case 8:
	Case Else:
	KeyAscii = 0
	End Select
End Sub

إنتبه للحدث KeyPress

(إنظر ما يقابل هذا الكود في vb.net)

السلام عليكم

في طريقة استخدمتها في الvb

ان شاءالله تفيد

ممكن تستخدم هذه السطور

   If IsNumeric(TextBox1.Text) = False Then

شكرا

شكرا لكم اخواني