main.vb

潜艇大战游戏源程序

		Me.PicShip2.Location = New System.Drawing.Point(500, 104)
		Me.PicShip2.Image = CType(resources.GetObject("PicShip2.Image"), System.Drawing.Image)
		Me.PicShip2.TabIndex = 6
		Me.PicShip2.Visible = False
		Me.PicShip2.Dock = System.Windows.Forms.DockStyle.None
		Me.PicShip2.BackColor = System.Drawing.SystemColors.Control
		Me.PicShip2.CausesValidation = True
		Me.PicShip2.Enabled = True
		Me.PicShip2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicShip2.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicShip2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicShip2.TabStop = True
		Me.PicShip2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicShip2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicShip2.Name = "PicShip2"
		Me.PicShip2M.Size = New System.Drawing.Size(53, 14)
		Me.PicShip2M.Location = New System.Drawing.Point(500, 124)
		Me.PicShip2M.Image = CType(resources.GetObject("PicShip2M.Image"), System.Drawing.Image)
		Me.PicShip2M.TabIndex = 5
		Me.PicShip2M.Visible = False
		Me.PicShip2M.Dock = System.Windows.Forms.DockStyle.None
		Me.PicShip2M.BackColor = System.Drawing.SystemColors.Control
		Me.PicShip2M.CausesValidation = True
		Me.PicShip2M.Enabled = True
		Me.PicShip2M.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicShip2M.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicShip2M.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicShip2M.TabStop = True
		Me.PicShip2M.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicShip2M.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicShip2M.Name = "PicShip2M"
		Me.PicMineM.Size = New System.Drawing.Size(6, 6)
		Me.PicMineM.Location = New System.Drawing.Point(512, 164)
		Me.PicMineM.Image = CType(resources.GetObject("PicMineM.Image"), System.Drawing.Image)
		Me.PicMineM.TabIndex = 4
		Me.PicMineM.Visible = False
		Me.PicMineM.Dock = System.Windows.Forms.DockStyle.None
		Me.PicMineM.BackColor = System.Drawing.SystemColors.Control
		Me.PicMineM.CausesValidation = True
		Me.PicMineM.Enabled = True
		Me.PicMineM.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicMineM.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicMineM.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicMineM.TabStop = True
		Me.PicMineM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicMineM.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicMineM.Name = "PicMineM"
		Me.PicMine.Size = New System.Drawing.Size(6, 6)
		Me.PicMine.Location = New System.Drawing.Point(512, 156)
		Me.PicMine.Image = CType(resources.GetObject("PicMine.Image"), System.Drawing.Image)
		Me.PicMine.TabIndex = 3
		Me.PicMine.Visible = False
		Me.PicMine.Dock = System.Windows.Forms.DockStyle.None
		Me.PicMine.BackColor = System.Drawing.SystemColors.Control
		Me.PicMine.CausesValidation = True
		Me.PicMine.Enabled = True
		Me.PicMine.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicMine.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicMine.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicMine.TabStop = True
		Me.PicMine.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicMine.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicMine.Name = "PicMine"
		Me.PicShipM.Size = New System.Drawing.Size(53, 14)
		Me.PicShipM.Location = New System.Drawing.Point(492, 268)
		Me.PicShipM.Image = CType(resources.GetObject("PicShipM.Image"), System.Drawing.Image)
		Me.PicShipM.TabIndex = 2
		Me.PicShipM.Visible = False
		Me.PicShipM.Dock = System.Windows.Forms.DockStyle.None
		Me.PicShipM.BackColor = System.Drawing.SystemColors.Control
		Me.PicShipM.CausesValidation = True
		Me.PicShipM.Enabled = True
		Me.PicShipM.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicShipM.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicShipM.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicShipM.TabStop = True
		Me.PicShipM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicShipM.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicShipM.Name = "PicShipM"
		Me.PicShip.Size = New System.Drawing.Size(53, 14)
		Me.PicShip.Location = New System.Drawing.Point(492, 248)
		Me.PicShip.Image = CType(resources.GetObject("PicShip.Image"), System.Drawing.Image)
		Me.PicShip.TabIndex = 1
		Me.PicShip.Visible = False
		Me.PicShip.Dock = System.Windows.Forms.DockStyle.None
		Me.PicShip.BackColor = System.Drawing.SystemColors.Control
		Me.PicShip.CausesValidation = True
		Me.PicShip.Enabled = True
		Me.PicShip.ForeColor = System.Drawing.SystemColors.ControlText
		Me.PicShip.Cursor = System.Windows.Forms.Cursors.Default
		Me.PicShip.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.PicShip.TabStop = True
		Me.PicShip.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.PicShip.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.PicShip.Name = "PicShip"
		Me.Timer1.Interval = 50
		Me.Timer1.Enabled = True
		Me.MainBoard.Size = New System.Drawing.Size(404, 364)
		Me.MainBoard.Location = New System.Drawing.Point(8, 8)
		Me.MainBoard.Image = CType(resources.GetObject("MainBoard.Image"), System.Drawing.Image)
		Me.MainBoard.TabIndex = 0
		Me.MainBoard.Dock = System.Windows.Forms.DockStyle.None
		Me.MainBoard.BackColor = System.Drawing.SystemColors.Control
		Me.MainBoard.CausesValidation = True
		Me.MainBoard.Enabled = True
		Me.MainBoard.ForeColor = System.Drawing.SystemColors.ControlText
		Me.MainBoard.Cursor = System.Windows.Forms.Cursors.Default
		Me.MainBoard.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.MainBoard.TabStop = True
		Me.MainBoard.Visible = True
		Me.MainBoard.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me.MainBoard.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.MainBoard.Name = "MainBoard"
		Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label2.Text = "HighScores"
		Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label2.ForeColor = System.Drawing.Color.Blue
		Me.Label2.Size = New System.Drawing.Size(73, 16)
		Me.Label2.Location = New System.Drawing.Point(419, 80)
		Me.Label2.TabIndex = 20
		Me.Label2.BackColor = System.Drawing.Color.Transparent
		Me.Label2.Enabled = True
		Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label2.UseMnemonic = True
		Me.Label2.Visible = True
		Me.Label2.AutoSize = True
		Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label2.Name = "Label2"
		Me.lblCredits.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.lblCredits.Text = "I made this"
		Me.lblCredits.Size = New System.Drawing.Size(69, 113)
		Me.lblCredits.Location = New System.Drawing.Point(420, 136)
		Me.lblCredits.TabIndex = 19
		Me.lblCredits.BackColor = System.Drawing.SystemColors.Control
		Me.lblCredits.Enabled = True
		Me.lblCredits.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblCredits.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblCredits.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblCredits.UseMnemonic = True
		Me.lblCredits.Visible = True
		Me.lblCredits.AutoSize = False
		Me.lblCredits.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblCredits.Name = "lblCredits"
		Me.Controls.Add(_PicExpM_3)
		Me.Controls.Add(_PicExpM_2)
		Me.Controls.Add(_PicExpM_1)
		Me.Controls.Add(_PicExpM_0)
		Me.Controls.Add(_PicExp_3)
		Me.Controls.Add(_PicExp_2)
		Me.Controls.Add(_PicExp_1)
		Me.Controls.Add(_PicExp_0)
		Me.Controls.Add(_PicElvM_2)
		Me.Controls.Add(_PicElvM_1)
		Me.Controls.Add(_PicElvM_0)
		Me.Controls.Add(_PicElv_2)
		Me.Controls.Add(_PicElv_1)
		Me.Controls.Add(_PicElv_0)
		Me.Controls.Add(PicPlane2)
		Me.Controls.Add(PicPlane2M)
		Me.Controls.Add(PicPlane1)
		Me.Controls.Add(PicPlane1M)
		Me.Controls.Add(PicExit)
		Me.Controls.Add(PicCrash2M)
		Me.Controls.Add(PicCrash2)
		Me.Controls.Add(PicCrash1M)
		Me.Controls.Add(PicCrash1)
		Me.Controls.Add(Pic3)
		Me.Controls.Add(Pic2)
		Me.Controls.Add(Pic1)
		Me.Controls.Add(PicSub2)
		Me.Controls.Add(PicSub2M)
		Me.Controls.Add(PicSub1M)
		Me.Controls.Add(PicSub1)
		Me.Controls.Add(PicShip2)
		Me.Controls.Add(PicShip2M)
		Me.Controls.Add(PicMineM)
		Me.Controls.Add(PicMine)
		Me.Controls.Add(PicShipM)
		Me.Controls.Add(PicShip)
		Me.Controls.Add(MainBoard)
		Me.Controls.Add(Label2)
		Me.Controls.Add(lblCredits)
		Me.PicElv.SetIndex(_PicElv_2, CType(2, Short))
		Me.PicElv.SetIndex(_PicElv_1, CType(1, Short))
		Me.PicElv.SetIndex(_PicElv_0, CType(0, Short))
		Me.PicElvM.SetIndex(_PicElvM_2, CType(2, Short))
		Me.PicElvM.SetIndex(_PicElvM_1, CType(1, Short))
		Me.PicElvM.SetIndex(_PicElvM_0, CType(0, Short))
		Me.PicExp.SetIndex(_PicExp_3, CType(3, Short))
		Me.PicExp.SetIndex(_PicExp_2, CType(2, Short))
		Me.PicExp.SetIndex(_PicExp_1, CType(1, Short))
		Me.PicExp.SetIndex(_PicExp_0, CType(0, Short))
		Me.PicExpM.SetIndex(_PicExpM_3, CType(3, Short))
		Me.PicExpM.SetIndex(_PicExpM_2, CType(2, Short))
		Me.PicExpM.SetIndex(_PicExpM_1, CType(1, Short))
		Me.PicExpM.SetIndex(_PicExpM_0, CType(0, Short))
		CType(Me.PicExpM, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.PicExp, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.PicElvM, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.PicElv, System.ComponentModel.ISupportInitialize).EndInit()
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As Form1
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As Form1
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New Form1()