Display a message box when the user clicks on stop button while the scripts in run mode
*************************************************************************
Class QTPStartStop
Private Sub Class_Terminate()
MsgBox "QTP Terminated"
End Sub
End Class
'crate an object of that class at the start of the Script
Dim QtpStop
Set QtpStop = New QTPStartStop
******************************************************************************