Public Class RFIDSummaryViewDialog

 Private Sub EditMenuItemMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditMenuItemMenuItem.Click
        Dim rfidEditViewDialog As scrivi_su_db.RFIDEditViewDialog = scrivi_su_db.RFIDEditViewDialog.Instance(Me.RFIDBindingSource)
        rfidEditViewDialog.ShowDialog()
        Me.Close()

    End Sub

    Private Sub RFIDSummaryViewDialog_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            Me.AutoScrollPosition = New System.Drawing.Point(0, ((0 - Me.AutoScrollPosition.Y) _
                            - 16))
            e.Handled = True
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            Me.AutoScrollPosition = New System.Drawing.Point(0, ((0 - Me.AutoScrollPosition.Y) _
                            + 16))
            e.Handled = True
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            'Su
            'Su
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            'Giù
            'Giù
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Left) Then
            'Sinistra
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Right) Then
            'Destra
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then
            'Invio
        End If

    End Sub
End Class