Запрет ввода определенных символов в TextBox - VB (59636)

Формулировка задачи:

Можно ли в каком-то свойстве текстбокса выбрать тип вводимых данных? Т.е., допустим текстбокс нужен для ввода чисел. Тогда даже если пользователь нажмет букву, ничего не пропишется, пока он не нажмет цифру.

Решение задачи: «Запрет ввода определенных символов в TextBox»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const ES_NUMBER As Long = &H2000&
 
Private Sub Form_Load()
    SetWindowLong txtTest.hwnd, GWL_STYLE, GetWindowLong(txtTest.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub
                        