VERSION 5.00
Begin VB.Form frmAbout 
   Caption         =   "關(guān)于  大家來玩猜數(shù)字"
   ClientHeight    =   3690
   ClientLeft      =   1995
   ClientTop       =   1605
   ClientWidth     =   5505
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   246
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   367
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Height          =   372
      Left            =   3960
      TabIndex        =   1
      Top             =   3240
      Width           =   1212
   End
   Begin VB.Label Label1 
      Caption         =   "大家來玩猜數(shù)字  網(wǎng)路對(duì)戰(zhàn)版"
      Height          =   2772
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   4452
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Left            =   120
      Picture         =   "frmAbout.frx":0000
      Top             =   240
      Width           =   480
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'VB愛好者樂園整理 yingzi007.126.com

Option Explicit

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim x, y
x = (Screen.Width - Me.Width) / 2
y = (Screen.Height - Me.Height) / 2
Me.Move x, y

Label1.Caption = "大家來玩猜數(shù)字  網(wǎng)路對(duì)戰(zhàn)版" & vbCrLf
Label1.Caption = Label1.Caption & "本軟體由 D.J. Studio - South Wind所撰寫" & vbCrLf
Label1.Caption = Label1.Caption & "在非商業(yè)行為、不侵害作者權(quán)益的基準(zhǔn)下" & vbCrLf
Label1.Caption = Label1.Caption & "一切內(nèi)容皆可免費(fèi)散播、使用" & vbCrLf
Label1.Caption = Label1.Caption & "本軟體特別感謝 李宗鑫作者公布電腦AI的設(shè)計(jì)邏輯" & vbCrLf
Label1.Caption = Label1.Caption & "不過這個(gè)邏輯AI實(shí)在是強(qiáng)的一塌糊途....." & vbCrLf
Label1.Caption = Label1.Caption & "不知到有沒有更人性化一點(diǎn)的AI......" & vbCrLf
Label1.Caption = Label1.Caption & "另外關(guān)于網(wǎng)路對(duì)戰(zhàn)部份沒有辦法測(cè)試的太詳細(xì)" & vbCrLf
Label1.Caption = Label1.Caption & "有問題還請(qǐng)通知我一聲,謝謝羅!" & vbCrLf
Label1.Caption = Label1.Caption & "歡迎光臨我的網(wǎng)站" & vbCrLf
Label1.Caption = Label1.Caption & "D.J. Studio   http://go.to/dj-studio/" & vbCrLf
Label1.Caption = Label1.Caption & "South Wind    siwei@tpts5.seed.net.tw" & vbCrLf
Label1.Caption = Label1.Caption & "李宗鑫作者的網(wǎng)址是 http://welcome.to/vampire/"
End Sub