Do
                For e = 0 To 255
                    If GetAsyncKeyState(e) <> 0 Then
                        Messagebox.show(e.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