Event Form1.Load
Form1.PictureBox43.Picture = "Attachment:\iphone底.bmp"
Form1.PictureBox44.Picture = "Attachment:\iphone头.bmp"
Form1.PictureBox45.Picture = "Attachment:\iphone上.bmp"
Form1.PictureBox46.Picture = "Attachment:\iphone下.bmp"
    End Event
Event Form1.Button1.Click
 Form1.InputBox1.Text = "黑棋开始"
Dim h,m,s,SJ
h=Hour(time):m=Minute(time):s=Second(time)
SJ=" "&h&"点"&m&"分"&s&"秒"
       Form1.InputBox3.Text =SJ
  Form1.InputBox2.Text = ""
Form1.PictureBox1.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox2.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox3.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox4.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox5.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox6.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox7.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox8.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox9.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox10.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox11.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox12.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox13.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox14.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox15.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox16.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox17.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox18.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox19.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox20.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox21.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox22.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox23.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox24.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox25.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox26.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox27.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox28.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox29.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox30.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox31.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox32.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox33.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox34.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox35.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox36.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox37.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox38.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox39.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox40.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox41.Picture = "Attachment:\纯白.bmp"
Form1.PictureBox42.Picture = "Attachment:\纯白.bmp"
End Event
Event Form1.Button57.Click
Form1.Button57.Enabled = Fales
MessageBox "游戏开始"
For 999999999999999999999
    Form1.InputBox1.Text = "黑棋开始"
  Dim h,m,s,SJ
h=Hour(time):m=Minute(time):s=Second(time)
SJ=" "&h&"点"&m&"分"&s&"秒"
       Form1.InputBox3.Text = SJ
        End Event
Event Form1.PictureBox1.Click
If Form1.InputBox1.Text = "黑棋开始" Then 
	 Form1.PictureBox1.Picture = "Attachment:\黑棋.bmp"
     Form1.InputBox1.Text = ""
	  Form1.InputBox2.Text = "白棋开始"
	 ElseIf Form1.InputBox2.Text = "白棋开始" Then
	  Form1.PictureBox1.Picture = "Attachment:\白棋.bmp"
	   Form1.InputBox2.Text = ""
	  Form1.InputBox1.Text = "黑棋开始"  
End If
End Event
Event Form1.PictureBox2.Click
If Form1.InputBox1.Text = "黑棋开始" Then 
	 Form1.PictureBox2.Picture = "Attachment:\黑棋.bmp"
	  Form1.InputBox1.Text = ""
	  Form1.InputBox2.Text = "白棋开始"
	 ElseIf Form1.InputBox2.Text = "白棋开始" Then

	  Form1.PictureBox2.Picture = "Attachment:\白棋.bmp"
	   Form1.InputBox2.Text = ""
	  Form1.InputBox1.Text = "黑棋开始"
End If
End Event
Event Form1.PictureBox3.Click
If Form1.InputBox1.Text = "黑棋开始" Then 
	 Form1.PictureBox3.Picture = "Attachment:\黑棋.bmp"
		  Form1.InputBox1.Text = ""
	  Form1.InputBox2.Text = "白棋开始"
	 ElseIf Form1.InputBox2.Text = "白棋开始" Then

	  Form1.PictureBox3.Picture = "Attachment:\白棋.bmp"
   Form1.InputBox2.Text = ""
	  Form1.InputBox1.Text = "黑棋开始"
End If