VERSION 5.00
Begin VB.Form frmBomb
   BackColor       =   &H80000007&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3705
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4830
   LinkTopic       =   "Form1"
   MousePointer    =   99  'Custom
   Picture         =   "frmBomb.frx":0000
   ScaleHeight     =   3705
   ScaleWidth      =   4830
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   495
      Top             =   2805
   End
   Begin VB.PictureBox Picture3
      BackColor       =   &H000000FF&
      BorderStyle     =   0  'None
      Height          =   1575
      Left            =   2265
      ScaleHeight     =   1575
      ScaleWidth      =   195
      TabIndex        =   3
      Top             =   1485
      Width           =   195
   End
   Begin VB.PictureBox Picture2
      BackColor       =   &H0000FF00&
      BorderStyle     =   0  'None
      Height          =   1590
      Left            =   3300
      ScaleHeight     =   1590
      ScaleWidth      =   195
      TabIndex        =   2
      Top             =   1485
      Width           =   195
   End
   Begin VB.PictureBox Picture1
      BackColor       =   &H00FFFF00&
      BorderStyle     =   0  'None
      Height          =   1575
      Left            =   1275
      ScaleHeight     =   1575
      ScaleWidth      =   195
      TabIndex        =   1
      Top             =   1485
      Width           =   195
   End
   Begin VB.Image Image1
      Height          =   900
      Left            =   3120
      Top             =   240
      Width           =   1545
   End
   Begin VB.Label Label1
      BackColor       =   &H80000007&
      Caption         =   "20"
      BeginProperty Font
         Name            =   "Xenotron"
         Size            =   21.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   360
      Left            =   195
      TabIndex        =   0
      Top             =   1470
      Width           =   840
   End
End
Attribute VB_Name = "frmBomb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub

Private Sub Picture1_Click()
Randomize
a = Int((Val("2") * Rnd()) + 1)
Select Case a
Case 1:
Timer1.Enabled = False
sndPlaySound App.Path & "\finish.wav", &H1
MsgBox "You disarmed the bomb!", vbInformation, "Bomb Squad"
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End
Case 2:
Timer1.Enabled = False
sndPlaySound App.Path & "\Explode.wav", &H1
MsgBox "You're Dead!", vbCritical, "KA BOOM"
Unload Me
'Shell "rundll32 shell32,SHExitWindowsEx 1"
End Select
End Sub

Private Sub Picture2_Click()
Randomize
a = Int((Val("2") * Rnd()) + 1)
Select Case a
Case 1:
Timer1.Enabled = False
sndPlaySound App.Path & "\finish.wav", &H1
MsgBox "You disarmed the bomb!", vbInformation, "Bomb Squad"
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End
Case 2:
Timer1.Enabled = False
sndPlaySound App.Path & "\Explode.wav", &H1
MsgBox "You're Dead!", vbCritical, "KA BOOM"
Unload Me
'Shell "rundll32 shell32,SHExitWindowsEx 1"
End Select
End Sub

Private Sub Picture3_Click()
Randomize
a = Int((Val("2") * Rnd()) + 1)
Select Case a
Case 1:
Timer1.Enabled = False
sndPlaySound App.Path & "\finish.wav", &H1
MsgBox "You disarmed the bomb!", vbInformation, "Bomb Squad"
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End
Case 2:
Timer1.Enabled = False
sndPlaySound App.Path & "\Explode.wav", &H1
MsgBox "You're Dead!", vbCritical, "KA BOOM"
Unload Me
'Shell "rundll32 shell32,SHExitWindowsEx 1"
End Select
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Timer1.Enabled = False
sndPlaySound App.Path & "\Explode.wav", &H1
MsgBox "You're Dead!", vbCritical, "KA BOOM"
'Shell "rundll32 shell32,SHExitWindowsEx 1"
End If
End Sub