main.vb

潜艇大战游戏源程序

		Me.PicPlane1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicPlane1.TabStop = True
		Me.PicPlane1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicPlane1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicPlane1.Name = "PicPlane1"
		Me.PicPlane1M.Size = New System.Drawing.Size(29, 12)
		Me.PicPlane1M.Location = New System.Drawing.Point(424, 272)
		Me.PicPlane1M.Image = CType(resources.GetObject("PicPlane1M.Image"), System.Drawing.Image)
		Me.PicPlane1M.TabIndex = 21
		Me.PicPlane1M.Visible = False
		Me.PicPlane1M.Dock = System.Windows.Forms.DockStyle.None
		Me.PicPlane1M.BackColor = System.Drawing.SystemColors.Control
		Me.PicPlane1M.CausesValidation = True
		Me.PicPlane1M.Enabled = True
		Me.PicPlane1M.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicPlane1M.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicPlane1M.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicPlane1M.TabStop = True
		Me.PicPlane1M.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicPlane1M.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicPlane1M.Name = "PicPlane1M"
		Me.PicExit.BackColor = System.Drawing.SystemColors.Window
		Me.PicExit.ForeColor = System.Drawing.Color.Black
		Me.PicExit.Size = New System.Drawing.Size(62, 22)
		Me.PicExit.Location = New System.Drawing.Point(424, 348)
		Me.PicExit.Image = CType(resources.GetObject("PicExit.Image"), System.Drawing.Image)
		Me.PicExit.TabIndex = 18
		Me.PicExit.Dock = System.Windows.Forms.DockStyle.None
		Me.PicExit.CausesValidation = True
		Me.PicExit.Enabled = True
		Me.PicExit.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicExit.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicExit.TabStop = True
		Me.PicExit.Visible = True
		Me.PicExit.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicExit.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.PicExit.Name = "PicExit"
		Me.PicCrash2M.Size = New System.Drawing.Size(37, 19)
		Me.PicCrash2M.Location = New System.Drawing.Point(504, 344)
		Me.PicCrash2M.Image = CType(resources.GetObject("PicCrash2M.Image"), System.Drawing.Image)
		Me.PicCrash2M.TabIndex = 17
		Me.PicCrash2M.Visible = False
		Me.PicCrash2M.Dock = System.Windows.Forms.DockStyle.None
		Me.PicCrash2M.BackColor = System.Drawing.SystemColors.Control
		Me.PicCrash2M.CausesValidation = True
		Me.PicCrash2M.Enabled = True
		Me.PicCrash2M.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicCrash2M.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicCrash2M.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicCrash2M.TabStop = True
		Me.PicCrash2M.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicCrash2M.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicCrash2M.Name = "PicCrash2M"
		Me.PicCrash2.Size = New System.Drawing.Size(37, 19)
		Me.PicCrash2.Location = New System.Drawing.Point(504, 320)
		Me.PicCrash2.Image = CType(resources.GetObject("PicCrash2.Image"), System.Drawing.Image)
		Me.PicCrash2.TabIndex = 16
		Me.PicCrash2.Visible = False
		Me.PicCrash2.Dock = System.Windows.Forms.DockStyle.None
		Me.PicCrash2.BackColor = System.Drawing.SystemColors.Control
		Me.PicCrash2.CausesValidation = True
		Me.PicCrash2.Enabled = True
		Me.PicCrash2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicCrash2.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicCrash2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicCrash2.TabStop = True
		Me.PicCrash2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicCrash2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicCrash2.Name = "PicCrash2"
		Me.PicCrash1M.Size = New System.Drawing.Size(37, 19)
		Me.PicCrash1M.Location = New System.Drawing.Point(500, 296)
		Me.PicCrash1M.Image = CType(resources.GetObject("PicCrash1M.Image"), System.Drawing.Image)
		Me.PicCrash1M.TabIndex = 15
		Me.PicCrash1M.Visible = False
		Me.PicCrash1M.Dock = System.Windows.Forms.DockStyle.None
		Me.PicCrash1M.BackColor = System.Drawing.SystemColors.Control
		Me.PicCrash1M.CausesValidation = True
		Me.PicCrash1M.Enabled = True
		Me.PicCrash1M.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicCrash1M.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicCrash1M.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicCrash1M.TabStop = True
		Me.PicCrash1M.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicCrash1M.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicCrash1M.Name = "PicCrash1M"
		Me.PicCrash1.Size = New System.Drawing.Size(37, 19)
		Me.PicCrash1.Location = New System.Drawing.Point(504, 268)
		Me.PicCrash1.Image = CType(resources.GetObject("PicCrash1.Image"), System.Drawing.Image)
		Me.PicCrash1.TabIndex = 14
		Me.PicCrash1.Visible = False
		Me.PicCrash1.Dock = System.Windows.Forms.DockStyle.None
		Me.PicCrash1.BackColor = System.Drawing.SystemColors.Control
		Me.PicCrash1.CausesValidation = True
		Me.PicCrash1.Enabled = True
		Me.PicCrash1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicCrash1.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicCrash1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicCrash1.TabStop = True
		Me.PicCrash1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicCrash1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicCrash1.Name = "PicCrash1"
		Me.Pic3.BackColor = System.Drawing.Color.White
		Me.Pic3.Size = New System.Drawing.Size(404, 364)
		Me.Pic3.Location = New System.Drawing.Point(308, 412)
		Me.Pic3.TabIndex = 13
		Me.Pic3.Dock = System.Windows.Forms.DockStyle.None
		Me.Pic3.CausesValidation = True
		Me.Pic3.Enabled = True
		Me.Pic3.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Pic3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Pic3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Pic3.TabStop = True
		Me.Pic3.Visible = True
		Me.Pic3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.Pic3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Pic3.Name = "Pic3"
		Me.Pic2.BackColor = System.Drawing.Color.White
		Me.Pic2.Size = New System.Drawing.Size(404, 364)
		Me.Pic2.Location = New System.Drawing.Point(8, 400)
		Me.Pic2.TabIndex = 11
		Me.Pic2.Dock = System.Windows.Forms.DockStyle.None
		Me.Pic2.CausesValidation = True
		Me.Pic2.Enabled = True
		Me.Pic2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Pic2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Pic2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Pic2.TabStop = True
		Me.Pic2.Visible = True
		Me.Pic2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.Pic2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Pic2.Name = "Pic2"
		Me.Pic1.BackColor = System.Drawing.Color.Black
		Me.Pic1.Size = New System.Drawing.Size(404, 364)
		Me.Pic1.Location = New System.Drawing.Point(548, 404)
		Me.Pic1.TabIndex = 12
		Me.Pic1.Dock = System.Windows.Forms.DockStyle.None
		Me.Pic1.CausesValidation = True
		Me.Pic1.Enabled = True
		Me.Pic1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Pic1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Pic1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Pic1.TabStop = True
		Me.Pic1.Visible = True
		Me.Pic1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.Pic1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Pic1.Name = "Pic1"
		Me.PicSub2.Size = New System.Drawing.Size(36, 10)
		Me.PicSub2.Location = New System.Drawing.Point(504, 220)
		Me.PicSub2.Image = CType(resources.GetObject("PicSub2.Image"), System.Drawing.Image)
		Me.PicSub2.TabIndex = 10
		Me.PicSub2.Visible = False
		Me.PicSub2.Dock = System.Windows.Forms.DockStyle.None
		Me.PicSub2.BackColor = System.Drawing.SystemColors.Control
		Me.PicSub2.CausesValidation = True
		Me.PicSub2.Enabled = True
		Me.PicSub2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicSub2.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicSub2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicSub2.TabStop = True
		Me.PicSub2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicSub2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicSub2.Name = "PicSub2"
		Me.PicSub2M.Size = New System.Drawing.Size(36, 10)
		Me.PicSub2M.Location = New System.Drawing.Point(504, 236)
		Me.PicSub2M.Image = CType(resources.GetObject("PicSub2M.Image"), System.Drawing.Image)
		Me.PicSub2M.TabIndex = 9
		Me.PicSub2M.Visible = False
		Me.PicSub2M.Dock = System.Windows.Forms.DockStyle.None
		Me.PicSub2M.BackColor = System.Drawing.SystemColors.Control
		Me.PicSub2M.CausesValidation = True
		Me.PicSub2M.Enabled = True
		Me.PicSub2M.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicSub2M.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicSub2M.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicSub2M.TabStop = True
		Me.PicSub2M.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicSub2M.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicSub2M.Name = "PicSub2M"
		Me.PicSub1M.Size = New System.Drawing.Size(36, 10)
		Me.PicSub1M.Location = New System.Drawing.Point(504, 200)
		Me.PicSub1M.Image = CType(resources.GetObject("PicSub1M.Image"), System.Drawing.Image)
		Me.PicSub1M.TabIndex = 8
		Me.PicSub1M.Visible = False
		Me.PicSub1M.Dock = System.Windows.Forms.DockStyle.None
		Me.PicSub1M.BackColor = System.Drawing.SystemColors.Control
		Me.PicSub1M.CausesValidation = True
		Me.PicSub1M.Enabled = True
		Me.PicSub1M.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicSub1M.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicSub1M.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicSub1M.TabStop = True
		Me.PicSub1M.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicSub1M.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicSub1M.Name = "PicSub1M"
		Me.PicSub1.Size = New System.Drawing.Size(36, 10)
		Me.PicSub1.Location = New System.Drawing.Point(504, 184)
		Me.PicSub1.Image = CType(resources.GetObject("PicSub1.Image"), System.Drawing.Image)
		Me.PicSub1.TabIndex = 7
		Me.PicSub1.Visible = False
		Me.PicSub1.Dock = System.Windows.Forms.DockStyle.None
		Me.PicSub1.BackColor = System.Drawing.SystemColors.Control
		Me.PicSub1.CausesValidation = True
		Me.PicSub1.Enabled = True
		Me.PicSub1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicSub1.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicSub1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicSub1.TabStop = True
		Me.PicSub1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicSub1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicSub1.Name = "PicSub1"
		Me.PicShip2.Size = New System.Drawing.Size(53, 14)