Sub Process_Global
Dim suono As Beeper
End Sub
.....
dim freq as int = 1500 '--> Hz
dim tempo as int = 1200000 ' --> 20 Minute's
Sub Button1_Click
If Button1.Text = "OFF" Then
suono.Release
Button1.Text = "ON"
Else
suono.Initialize(tempo, freq) 'milliseconds, hz
suono.Beep
Button1.Text = "OFF"
End If
End Sub