New to VB! Can't suss timer out! 1

[iMacDan]

I want to exit my program by leaving a message on screen first.

So click exit it clears all info then prints a goodbye message. No Problem. But I need to make the end function wait a few secs while you see the message?

Otherwise you don't see it becasue the program closes too quickly!

Any Ideas?

 

[CajunCenturion]

One simple way would be to use the Sleep API Call. At the top of your form, declare the function.

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

Then in form_unload event show your message, go to sleep, then shutdown

Private Sub Form_Unload(rInt_Cancel As Integer)

<show you goodbye message>
DoEvents
Sleep 5000 ' 5 seconds

End Sub
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[iMacDan]

I'm sorry! That helps but I am really new to this programming bit!!!!!!

I have done what you said, know how do I get my cmdexit button to link to it and do it?

Thanks again in advance of help

 

[CajunCenturion]

Give this a shot

Assuming that your exit button is named cmdExit
then

Private Sub cmdExit_Click ()
Unload Me
End Sub

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[iMacDan]

FANTASTIC

Thanks a lot that really helps.

Spot on.