Public Class frmScroller
 
   Dim WithEvents VScroller As New VScrollBar With _
   {.Parent = Me, .Dock = DockStyle.Right, .TabStop = True}
 
   Dim chkScrollerMove As New CheckBox With _
   {.Parent = Me, .Dock = DockStyle.Top, .Text = "ScrollerKeyStop"}
 
    Private Sub frmScroller_KeyDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If VScroller.Focused AndAlso chkScrollerMove.Checked Then
            'Right/Left etc. bleiben in Funktion 
            Select Case e.KeyCode
                Case Keys.Up, Keys.Down, Keys.PageUp, Keys.PageDown
                    e.SuppressKeyPress = True
            End Select
        End If
    End Sub
 
    Private Sub frmScroller_Load(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
 
End Class