نقل قول نوشته شده توسط Hossis مشاهده تاپیک
نیازی به این همه کد نیست
برای چند تکست باکس میشه یک بار کد رو نوشت و رویداد کی پرز همه تکست باکس ها رو به همون یکی هندل کرد.
ساده اش هم اینه (تو رویداد keypress)
 Dim num As String = "01234546789" & Chr(Keys.Back)

        If num.Contains(e.KeyChar)  Then e.Handled = True
همین کار رو تابع بالایی هم انجام میده اما اگه یه تابع داشته باشی میتونی به شیوه دلخواه تغییرات رو توش انجام بدی. مثلا در زبان هلندی جای (.) و (,) در اعداد فرق میکنه یا اینکه مثلا بخوای فقط اعداد منفی بگیره یا برعکس خلاصه هر تغییری لازم باشه میشه انجام داد.
اما کد شما تک خطیه و اینم یه حسن خیلی خوبیه ..