VB.NET
소스 Windows.Forms.DialogResult.Yes 

        For xxx As Integer = 1 To 10000000

            

            If Windows.Forms.DialogResult.Yes Then

                Exit For

            End If

            

        Next