Sub Process_Globals
Private button1State As String
Private button2State As String
End Sub
Sub Button1_Up
button1State="up"
End Sub
Sub Button1_Down
button1State="down"
If button2State="down" Then ExitApplication
End Sub
Sub Button2_Up
button2State="up"
End Sub
Sub Button2_Down
button2State="down"
If button1State="down" Then ExitApplication
End Sub