"Jouer à tour de rôle" en VB6

Bonjour,

En VB6, je poursuit un petit jeu de cartes débuté il y a longtemps, et je cherche le moyen de faire le "à tour de rôle". J'ai une boucle For qui le fait, mais je n'ai rien qui dit d'attendre que le joueur ait joué. Fake les 4 player passe en ligne jusqua la fin de la boucle car rien n'attend que le player aille dragger sa carte au centre. Comment je pourrais faire ça?

Voici le code que j'ai présentement, je suis p-e complèment dans le champ.. *À noter que Call tour_AI est en commentaire car mon intelligence artificielle du joueur controlé est au stade de pseudo-code..
Le parametre est pour dire que cest l'AI #1 et l'AI #2.

If round = 1 Or round = 2 Then
y = 3
Else
y = 4
End If
For i = 0 To y
Call tour_player1
'Call tour_AI(0)
Call tour_player2
'Call tour_AI(1)
Next i
round = round + 1

Dans tour_player1, je met tout simplement les choses dont il n'a pas accès à enable=False. Mais il me faut quelque chose qui le retienne avant de passer à la prochaine fonction, tant que le joueur n'a pas joué.

Peut-être que ma gestion de tour de rôle est mal faite, mais sinon, comment je peux faire attendre que le joueur aille dragger sa carte? Je sais que présentement c'est évident que ça passe droit, puisque y'a rien qui l'arrête, mais je ne sais pas quoi mettre. J'espère avoir été clair, sinon n'hésitez pas à me le demander car votre aide sera apprécié.



Merci de votre réponse