[RESOLU]Comment sortir d'une boucle lors d'un événement sur un bouton

[néné06]

Bonjour le Forum

J'ai une Frame dans un USF
Dans la frame ,un bouton à cliquer (BTNVALFRAME)
Dans l'USF, un bouton à cliquer (BTNVAL)
Lorsque je click sur(BTNVAL) de USF, apparait la Frame dans laquelle je vais, suite à un traitement, valider la frame par (BTNVALFRAME)

Je souhaiterais que la Frame devienne invisible, suite à un click sur (BTNVALFRAME) et SORTIR DE MA BOUCLE DO LOOP

Private Sub BTNVALFRAME_Click()
appuis_btn = 1
Frame1.Visible = False
End Sub

Public Sub BTNVAL_Click()
Dim appuis_btn As Byte
Frame1.Visible = True
Do Until appuis_btn = 1


*****Je souhaiterai sortir de cette boucle lors du click sur bouton "BTNVALFRAME" de la Frame******
*****Cette méthode ne fonctionne pas,évidemment ***********************


Loop

End Sub

D'avance MERCI pour votre aide!!!

J'ai fais une erreur en passant par DO...LOOP car je Passe par IF et le problème est rèsolu.

Merci à toutes et tous!!