[VB6] ScrollBars con Up & Down

[Artemio]

vorrei fare in modo che alla pressione di su o giu si muovano le scrollbars... ho provato cosi

 Private Sub Form_KeyPress(KeyAscii As Integer)
ScrollBars
    If KeyAscii = vbKeyDown Then
        VScroll.Value = VScroll.Value + 10
    End If
    If KeyAscii = vbKeyUp Then
        VScroll.Value = VSrcoll.Value - 10
    End If
ScrollBars
End Sub

ma non succede nulla...
forse è importante farvi sapere che il form con le scrollbars che voglio muovere si trova in un MDIForm?

ho provato anche keydown...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
ScrollBars
   Select Case KeyCode
    Case vbKeyDown
        VScroll.Value = VScroll.Value + 10
    Case vbKeyUp
        VScroll.Value = vsrcoll.Value - 10
    End Select
ScrollBars
End Sub

[Artemio]

nessuna idea?

[Artemio]

tutto apposto
c'era solo KeyPreview su False