Sub Open()
  //First method to run on the creation of a new Window. We instantiate an instance of our forestFire thread and run it.
  Dim fire As New forestFire
  fire.Run()
End Sub

stop As Boolean  //a globally accessible property of Window1. Boolean properties default to False.

Sub Pushbutton1.Action()
  stop = True
End Sub