[Genius Live]

- Declared a variable of type Integer in statements section

كود :

Dim A As Integer = 0

- Then add audio file to My.Resourcesis called ringout
- Set Timer Interval property = 60000
- Type the following code in your timer Tick Event

كود :

A += 1
        If A = 45 Then
            A = 0
            My.Computer.Audio.Play(My.Resources.ringout, AudioPlayMode.BackgroundLoop)
        End If