Public Declare Function CreateUpDownControl Lib "comctl32.dll" ( _
   ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
   ByVal cy As Long, ByVal hParent As Long, ByVal nID As Long, _
   ByVal hInst As Long, ByVal hBuddy As Long, ByVal nUpper As Long, _
   ByVal nLower As Long, ByVal nPos As Long) As Long

    hWndUpDown_to_PortMax = CreateUpDownControl(UPDOWNSTYLE, 0, 0, 0, 0, Me.PicturePorts.hWnd, 4, _
                                App.hInstance, TextPortMax.hWnd, 65535, 1024, _
                                5000)

HWND CreateUpDownControl(
  DWORD dwStyle,
  int x,
  int y,
  int cx,
  int cy,
  HWND hParent,
  int nID,
  HINSTANCE hInst,
  HWND hBuddy,
  int nUpper,
  int nLower,
  int nPos
);