让TextBox只允许输入数字

1. Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
2. Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
3. Private Const GWL_STYLE As Long = -16
4. Private Const ES_NUMBER As Long = &H2000
6. Private Sub Form_Load()
7.     Dim lOldStytle As Long
8.     Dim ret As Long
10.     lOldStytle = GetWindowLong(Text1.hwnd, GWL_STYLE)
11.     lOldStytle = lOldStytle Or ES_NUMBER
12.     ret = SetWindowLong(Text1.hwnd, GWL_STYLE, lOldStytle)
13. End Sub