Const ES_NUMBER As Long = &H2000&
Const GWL_STYLE As Long = -16
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Function SetTextBoxNum(ByRef Obj As Object) As Boolean
SetWindowLong Obj.hwnd, GWL_STYLE, GetWindowLong(Obj.hwnd, GWL_STYLE) Or ES_NUMBER
End Function
' ==== Utilisation :
'Private Sub Form_Load()
' Call SetTextBoxNum(Text1)
'End Sub