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.