Escape ( GAME ) Source VB.NET

Public Class Form2

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Escape - Playing: Locked Room"
        DoubleBuffered = True
    End Sub

    Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click
        MsgBox("you realized you where on the 4th floor.")
        PictureBox2.Enabled = False
    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        MsgBox("you realized you where on the 4th floor.")
        PictureBox1.Enabled = False
    End Sub

    Private Sub PictureBox3_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click
        MsgBox("you have found scissors!")
        items.DropDownItems.Add("Scissors")
        PictureBox3.Enabled = False
    End Sub

    Private Sub PictureBox5_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox5.Click
        MsgBox("you have tied your creation to the chair!, you have escaped!")
        Me.Dispose()
    End Sub

    Private Sub BuildToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BuildToolStripMenuItem.Click
        MsgBox("items built!")
        PictureBox5.Enabled = True
    End Sub

    Private Sub PictureBox4_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox4.Click
        MsgBox("you have found curtains!")
        items.DropDownItems.Add("Curtains")
        PictureBox4.Enabled = False
        BuildToolStripMenuItem.Enabled = True
    End Sub
End Class