<div dir="ltr"><div dir="ltr"><div class="gmail_default" style="font-size:small"><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, 1 Jul 2021 at 17:59, Charlie Ogier <<a href="mailto:charlie@cogier.com">charlie@cogier.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Hi,<br>
<br>
Can you try this code and see if you experience my problem. The program <br>
should end on clicking the button, but it doesn't close until the end of <br>
the 'Sub'.<br>
<br>
Thanks,<br>
<br>
Charlie<br>
<br>
***Code***<br>
Button1 As Button<br>
<br>
Public Sub Form_Open()<br>
<br>
   With Me<br>
     .Height = 400<br>
     .Width = 500<br>
     .Padding = 5<br>
     .Center<br>
   End With<br>
<br>
   With Button1 = New Button(Me) As "Button1"<br>
     .W = 100<br>
     .H = 28<br>
     .X = 10<br>
     .Y = 10<br>
     .Text = "&Click me!"<br>
   End With<br>
<br>
End<br>
<br>
Public Sub Button1_Click()<br>
<br>
   Dim iLoop As Integer<br>
<br>
   Me.Close '' Shouldn't the program stop here?<br>
<br>
   For iLoop = 0 To 1000<br>
     Print Str(iLoop) & " Hello"<br>
   Next<br>
<br>
End<br>
<br>
***End code***<br>
<br>
----[ <a href="http://gambaswiki.org/wiki/doc/netiquette" rel="noreferrer" target="_blank">http://gambaswiki.org/wiki/doc/netiquette</a> ]----<br></blockquote><div><br></div><div style="font-size:small" class="gmail_default">Maybe it's because you're inside an event already.</div><div style="font-size:small" class="gmail_default">Maybe Button1_Click event has to finish before the form can close.</div><div style="font-size:small" class="gmail_default"><br></div><div style="font-size:small" class="gmail_default">so does this work as expected..</div><div style="font-size:small" class="gmail_default"><br></div><div style="font-size:small" class="gmail_default">Me.Close  ' trigger close event<br></div><div style="font-size:small" class="gmail_default">Return  ' exit the current event</div><div style="font-size:small" class="gmail_default"><br></div><div style="font-size:small" class="gmail_default">BruceS<br></div></div></div>