Public Class NumericTextBoxClass NumericTextBox
Inherits System.Windows.Forms.TextBox
Protected Overrides Sub OnKeyPress()Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
e.Handled = Not Char.IsDigit(e.KeyChar)
End Sub
End Class 

#Region " Windows 窗体设计器生成的代码 "
'
 Friend WithEvents TextBox1 As NumericTextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
Me.TextBox1 = New NumericTextBox
Me.SuspendLayout()
'
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(24, 24)
Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(152, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "123"
        '
'.
   End Sub
#End Region