Как программно кликнуть VScroll и как сделать кнопки вдавленные - VB

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

Есть текстовое поле, рядом VScroll
Max=1
Min=100
LargeChange=SmallChange
При нажатии стрелка вверх-вниз в текстовом поле Value в VScroll меняется на +1/-1
Рабочий код такой:

TextFrom_KeyDown(KeyCode  , Shift  )
         KeyCode =   
               
            VScrollFrom.Value = VScrollFrom.Value + 
            KeyCode = 
             
         KeyCode =   
               
            VScrollFrom.Value = VScrollFrom.Value - 
            KeyCode = 

  VScrollFrom_Change()
    TextFrom.Text = VScrollFrom.Value
 

1)Но он не обеспечивает визуальное нажатие кнопочки на VScrollFrom
Пытался так:

WM_VSCROLL = &H115
  SB_LINEDOWN = 
  SB_LINEUP = 

            SendMessage VScrollFrom.hWnd, WM_VSCROLL, SB_LINEUP, 
...
            SendMessage VScrollFrom.hWnd, WM_VSCROLL, SB_LINEDOWN, 

-не работает.
Т.е. как программно кликнуть по VScrollFrom (вверх или вниз) с визуальным эффектом нажатия?
2) В нажатом состоянии кнопочки VScroll выглядят "в плоскости формы", хотелось бы чтоб выглядели вдавленно. Как изменить его стиль? (через vb-параметры VScroll думаю нельзя)
Примечание: через API VScroll я рисовать не хочу, т.к. все события должны вытаскиваться из vb-кода, а не из WM_COMMAND, "сложность конструкции" не позволяет отлавливать WM_COMMAND без глюков.

Решение задачи: «Как программно кликнуть VScroll и как сделать кнопки вдавленные»

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

                            <font color="blue">Private</font> <font color="blue">Type</font> tagInitCommonControlsEx
lngSize <font color="blue">As</font> <font color="blue">Long</font>
lngICC <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">End</font> <font color="blue">Type</font>
<font color="blue">Public</font> <font color="blue">Declare</font> <font color="blue">Sub</font> InitCommonControls Lib <font color="teal">"Comctl32.dll"</font> ()
<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> InitCommonControlsEx Lib <font color="teal">"comctl32.dll"</font> _
(iccex <font color="blue">As</font> tagInitCommonControlsEx) <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">Private</font> <font color="blue">Const</font> ICC_USEREX_CLASSES = &H200

<font color="blue">Public</font> <font color="blue">Function</font> InitCommonControlsVB() <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
<font color="blue">Dim</font> iccex <font color="blue">As</font> tagInitCommonControlsEx
<font color="00AA00">' Ensure CC available:</font>
<font color="blue">With</font> iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
<font color="blue">End</font> <font color="blue">With</font>
InitCommonControls
InitCommonControlsEx iccex

InitCommonControlsVB = (Err.Number = <font color="darkblue"><b>0</b></font>)
  
<font color="blue">End</font> <font color="blue">Function</font>
                        