Form1.vb

 Public Class Form1

    Dim life As Double = 10
    Dim shell(3) As PictureBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        shell(1) = shellPic1
        shell(2) = shellPic2
        shell(3) = shellPic3

        Dim currentShell As Double = 1
        For currentShell = 1 To 3
            shell(currentShell).Image = shellPictures.Images(0)
        Next
    End Sub

    Function getRandomNumber() As Double
        Return Math.Floor(Rnd() * 3) + 1
    End Function

    Private Sub shellPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shellPic1.Click
        checkIfWin(1)
    End Sub

    Function checkIfWin(ByVal shellPic As Integer)
        If getRandomNumber() = 1 Then
            won(shellPic)
        Else
            lost(shellPic)
        End If
        shell(shellPic).Image = shellPictures.Images(0)
    End Function

    Function won(ByVal shellPic As Integer)
        life += 2
        shell(shellPic).Image = shellPictures.Images(1)
        updateLife()
        If life >= 15 Then
            If MessageBox.Show("Congratulations, you defused all the bombs! Play Again?", "Credits", MessageBoxButtons.YesNo) Then
                life = 10
                updateLife()
            End If
            If vbNo Then
                Me.Close()
            End If
        Else
            MessageBox.Show("You did it!", "BOMB De-Fused")
        End If
    End Function

    Function lost(ByVal shellPic As Integer)
        life -= 1
        shell(shellPic).Image = shellPictures.Images(2)
        updateLife()
        If life <= 0 Then
            If MessageBox.Show("Sorry, you are dead.Play again?", "Game Over", MessageBoxButtons.YesNo) Then
                life = 10
                updateLife()
            Else
                Me.Close()
            End If
        Else
            MessageBox.Show("Oops, you blew us up!", "BOOM!")
        End If

    End Function

    Function updateLife()
        lifeBox.Text = Format(life, "c")
    End Function

    Private Sub shellPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shellPic2.Click
        checkIfWin(2)
    End Sub

    Private Sub shellPic3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shellPic3.Click
        checkIfWin(3)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Click on a wire to defuse the bomb. If you get it right, your lives go up one, and we are saved. If you are wrong, we die, and you lose a life.", "Rules")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MessageBox.Show("BOMB was Produced, Programed, And Designed By Luke Towers", "CREDITS")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MessageBox.Show("If you have problems with the game, please email your questions to towers.luke@gmail.com", "HELP")
    End Sub
End Class

Project Homepage: