سلام با کپی این کد درون تکست باکس ،فقط ورودی عدد رااز کاربر می گیرد ومتن را ثبت نمی کند.

البته کد باید در key press نوشته شود

 

        If (e.KeyChar < "0" OrElse e.KeyChar > "9") 

            AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." Then  

            e.Handled = True

        End If

    End Sub