Window1.Open:
Sub Open()
   Rem Katherine Irvine
   Rem Block H
   Rem #4
   Rem variable practice
End Sub

Window1.PushButton1.Action:
Sub Action()
   Beep //causes a beep when the button is pressed
   Rem The following line displays a message
   MsgBox "Sorry, this application doesn't do much"
   Rem Change the string 'caption' of the pushbutton
   PushButton1.Caption = "Push me again!"
End Sub