Do
            For e = 0 To 255
                If GetAsyncKeyState(e) <> 0 Then
                    MessageBox.Show(DirectCast(e, Keys).ToString)
                End If
            Next e
            Threading.Thread.Sleep(100) '<-- Nota anche che ho spostato questo(è fondamentale che sia qui o non dove lo avevi messo tu)
        Loop