Simple stuff (quitting a VB app)

On my application's form load, my app will say that it's been in use for, let's say 30 days and will be shut down.

But how can I do it? How do I simply TERMINATE the application? I tried exit sub but of course this won't terminate the application.

Thanks.

to terminate the program all you have to to is write:






Private Sub Command1_Click()
End
End Sub

You mean to exit a program? Use the End command.

Code:

---

Private Sub Form_Load()

  End ' Exit the program

End Sub

---

Most people tend to think this is the better way of ending a program.

Code:

---

Private Sub CloseAllForms()
    Dim nForm As Form
    For Each nForm In Forms
        Unload nForm
    Next
End Sub

---

It unloads all forms, thus ending the program.

If you want the exit button to be in an adden button put this in.

Code:

---

Private Sub Command1_Click()
unload me 'exits the program
End Sub

---

Or you can just add

Code:

---

unload me

---

to anything you click on.