Private Sub InitUpDownS()
    Const UPDOWNSTYLE = WS_CHILDWINDOW Or WS_VISIBLE Or WS_GROUP Or _
     UDS_SETBUDDYINT Or UDS_ALIGNRIGHT Or _
     UDS_ARROWKEYS Or UDS_NOTHOUSANDS 'Or UDS_AUTOBUDDY

    '====TextBox через API======
    'создаем hEdit через API (только ввод цифр)
    hEdit = CreateWindowEx(WS_EX_CLIENTEDGE, "edit", "", _
     ES_AUTOHSCROLL Or ES_NUMBER Or WS_VISIBLE Or WS_CHILD, _
     80, 40, 60, 23, _
     Me.Handle, IntPtr.Zero, System.Runtime.InteropServices.Marshal.GetHINSTANCE _
     (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)), 0)
    SendMessage(hEdit, WM_SETFONT, Me.Font.ToHfont, 0)

    hWndUpDown_to_hEdit = CreateUpDownControl(UPDOWNSTYLE, 0, 0, 0, 0, Me.Handle, 1, _
     System.Runtime.InteropServices.Marshal.GetHINSTANCE _
     (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)), hEdit, 99, 0, 1)

    '===============================================================================
    '====TextBox -контрол на форме======
   'стиль для TextBox1:только ввод цифр
    SetWindowLong(TextBox1.Handle, GWL_STYLE, GetWindowLong(TextBox1.Handle, GWL_STYLE) Or ES_NUMBER)
    'пристыковка UpDown к существующему TextBox1
    hWndUpDown_to_TextBox1 = CreateUpDownControl(UPDOWNSTYLE, 0, 0, 0, 0, Me.Handle, 1, _
     System.Runtime.InteropServices.Marshal.GetHINSTANCE _
     (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)), TextBox1.Handle, 99, 0, 1)

  End Sub