Sub Process_Globals
'add
Dim b As Beeper
end sub
Sub Beep(T As Int)
'Sound a beep with length T
If lblBeeps.Text > 0 Then
Dim r As Reflector
r.Target=b
r.Target=r.GetField("at")
r.RunMethod("release")
End If
b.Initialize(T,1500)
b.Beep
'Show how many times this sub is called
Dim bCount As Int
bCount=lblBeeps.Text+1
lblBeeps.Text=bCount
End Sub