Comment attendre un resultat sans boucle do loop ?

salut,
j'ai un probleme avec mon appli, je converse sans probleme avec un automate pour faire deplacer un axe.Jusqu'a present tout baigne mais j'attends un resultat de l'automate (un 1 au lieu d'un 0 pour me faire savoir que le deplacement est terminé), et je voudrais savoir si il existe une solution autre qu'une boucle do loop qui verifie si le numero est a 1 au lieu de 0. Le probleme est que la boucle freine le PC, car le deplacement peut durer 5 mn.
Ce que j'aimerais, c'est par exemple que le code VB s'arrete sur une ligne du genre:
"si le numero est a 0 j'attends"
et "Quand le n° est a 1, je continue".
J'ai cherché des tas de possibilités mais sans succes.
Merci si vous avez la soluce.
A bientot.
alain

tu peut essayer une boucle du genre

'attente tant que resultat=0 sinon passe la boucle
'et on met un doevents pour redonner la main au processeur
while resultat=0
' Traitement
 doevents
wend


Metalcoder

Si ton problème est un ralentissement du pc seulement alors je te conseil soit d'utiliser ça :

Public Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

permet d'utiliser le sleep(millisecond as long)

donc do quand meme mais bon ou bien de lancer un timer fait expres pour.

Enfin pour moi je lancerai une petit feuille annexe avec un timer qui toute les secondes font si 0 continuer l'animation d'un sablier qui tourne ou bien arreter le timer et sortir de la feuille tout en envoyant un msgbox "super c'est à 1"

Mais si j'ai mal compris la question (ce qui est fort possible...) j'aimerai plus de précision.

Merci a vous deux, je vais essayer les 2 soluces, j'avais pensé au timer mais en un laps d'une seconde, l'axe se deplace alors que je veux un arret net. je vais tester  le doevents et le timer avec une scrutation plus rapprochée genre 1/10eme de seconde, ce qui est deja beaucoup moins rapide que le scrut VB
alain