boucle infinie

Salut
je veux placer une code dans une boucle infinie pour assurer son exécution continue (vérification continue d'une condition)
le problème que le meme code je l'ai placé dans un timer et il a bien fonctionné, tant disque en boucle infinie ne donne aucun résultat

ma boucle prend cette forme

form.Show
mavar = False
While mavar = False

if ...... Then

DoEvents
Wend
End Sub

j'ai essayé de faire une exécution step by step, l'exécution devient erronée à une instruction bien particulière qu'elle a déja fonctionné en timer
bref, est ce qu'il ya un prob dans la boucle infinie?
merci de m'avoir m'aider
à +

tu dois certainement lancer quelques choses apres ton IF..... then qui demande un temps d'execution et ta boucle est peut etre trop rapide alors que lorsque tu passais par le timer celui ci n'executait ton code que par cycle de X millisecondes, le timer laissait le temps a ton code de s'executer completement.

peut etre que en te servant de l'API SLEEP :

private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

sleep 500 'pour faire un temps mort de 500 Ms




sinon la solutino du timer etait pas mauvaise puisque il s'agit bien d'une boucle infini.

salut
merci pour votre aide, c'était vraiment la solution que je cherche
merci encore une fois
a+