Pass the bomb

Public Class Form1
    Dim x As Integer = 5
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = x ^ 2 Mod 97 * 1511

        Timer1.Interval = x
        Timer1.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To 5
            x = x ^ 2 Mod 97 * 1511
        Next
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        My.Computer.Audio.Play("C:\Documents and Settings\James\Desktop\1.wav")
    End Sub
End Class