Private Sub dgv_KeyDown(sender As Object, _
        e As System.Windows.Forms.KeyEventArgs) Handles dgv.KeyDown
 
        With dgv
            If .SelectedRows.Count < 1 Then Exit Sub
            If e.KeyCode = Keys.Down And .Rows(gridlines - 1).Selected And _
                topposition < filelength - inputlength Then
                topposition = Math.Min(topposition + rowcolumns, filelength - _
                  inputlength)
                Showbytes(gridlines - 1)
            ElseIf e.KeyCode = Keys.Up And .Rows(0).Selected And topposition _
              > 0 Then
                topposition = Math.Max(0, topposition - rowcolumns)
                Showbytes(0)
            ElseIf e.KeyCode = Keys.Next Then
                Dim stepp As Integer = gridlines
                If e.Shift Then stepp *= 10
                topposition = Math.Min(topposition + stepp * rowcolumns, _
                  filelength - inputlength)
                topposition = Math.Max(topposition, 0)
                Showbytes(gridlines - 1)
            ElseIf e.KeyCode = Keys.Prior Then
                Dim stepp As Integer = gridlines
                If e.Shift Then stepp *= 10
                topposition = Math.Max(topposition - stepp * rowcolumns, 0)
                Showbytes(0)
            ElseIf e.KeyCode = Keys.End Then
                topposition = Math.Max(filelength - inputlength, 0)
                Showbytes(gridlines - 1)
            ElseIf e.KeyCode = Keys.Home Then
                topposition = 0
                Showbytes(0)
            End If
        End With
        Me.Text = CStr(topposition)
    End Sub
End Class