Private Sub DataGridView1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
        Select Case e.KeyData
            Case Keys.D0 To Keys.D9 And My.Computer.Keyboard.NumLock = False
                Console.WriteLine("tasti normali e tastierino spento")
            Case Keys.D0 To Keys.D9 And My.Computer.Keyboard.NumLock = True
                Console.WriteLine("tasti normali e tastierino acceso")
            Case Keys.NumPad0 To Keys.NumPad9 And My.Computer.Keyboard.NumLock = False
                Console.WriteLine("tasti tasterieno e tastierino spento")
            Case Keys.NumPad0 To Keys.NumPad9 And My.Computer.Keyboard.NumLock = True
                Console.WriteLine("tasti tasterieno e tastierino acceso")
        End Select
    End Sub