12 lines
330 B
Plaintext
12 lines
330 B
Plaintext
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
|