Voilà omnikod, j'ai apporté quelques modifications comme suggéré:
- visualisation de l'image
- nombre de déplacements et de rotations affichés
- temps affiché et un message à la fin (à améliorer (graphisme, texte))

je réflechi pour trouver une manière de calculer un score proportionnel au nombre de coups effectués.

merci pour les conseils.

Ca y est, j'ai corrigé les deux bugs.
Merci sylric de les avoir indiqués.
A+

Essaye en ajoutant un label (Label2) et remplace les deux dernière lignes de Private Sub Text1_Click() pas les ligne suivantes :
    
    For x = Text1.SelStart To 1 Step -1
        ' Détecte la fin de la ligne précédente
        If Mid(Text1.Text, x, 1) = Chr(10) Then
            NColonne = Text1.SelStart - x + 1
            GoTo Suite
        End If
    Next
    ' Donne la position du curseur si il est sur la première ligne
    ' (pas de ligne précédente donc pas de caractère chr(10))
    NColonne = Text1.SelStart + 1

Suite:
    '*******************************
    ' Affiche le numéro de la ligne
    '*******************************
    Label1.Caption = "Ligne N°" + Str(NLigne) + " / Colonne N°" + Str(NColonne)
    If Text1.SelStart > 0 Then
        ' Récupère le caractère avant le curseur
        caractere = Mid(Text1.Text, Text1.SelStart, 1)
        ' Affiche le numéro de la ligne, le caractère et son code ASCII
        Label2.Caption = caractere + "  / " + Str(Asc(caractere))
    End If

J'espère que j'ai répondu à ta question ;-)