frmcredits.frm

用VB做的小记忆游戏

VERSION 4.00
Begin VB.Form FrmAbout 
   BackColor       =   &H00008000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Flip!"
   ClientHeight    =   4170
   ClientLeft      =   2100
   ClientTop       =   1845
   ClientWidth     =   5250
   ControlBox      =   0   'False
   Height          =   4575
   Icon            =   "FrmCredits.frx":0000
   Left            =   2040
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4170
   ScaleWidth      =   5250
   Top             =   1500
   Width           =   5370
   Begin VB.CommandButton Command1 
      Caption         =   "&J"
      Height          =   495
      Left            =   -1500
      TabIndex        =   4
      Top             =   3480
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&OK"
      Default         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2160
      TabIndex        =   2
      Top             =   2880
      Width           =   1215
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00008000&
      Caption         =   "[e-mail]"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Index           =   1
      Left            =   0
      MouseIcon       =   "FrmCredits.frx":030A
      MousePointer    =   99  'Custom
      TabIndex        =   6
      Top             =   2280
      Width           =   5295
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00008000&
      Caption         =   "This version is distributed by Planet Source Code, If you find it useful, please rate it.!"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   855
      Index           =   0
      Left            =   -120
      TabIndex        =   5
      Top             =   1440
      Width           =   5295
   End
   Begin VB.Line Line2 
      BorderColor     =   &H0000FFFF&
      BorderWidth     =   3
      X1              =   240
      X2              =   5040
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00008000&
      Caption         =   "Jason Bennison   ""JaySoft"""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   890
      Width           =   5055
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FFFF&
      BorderWidth     =   3
      X1              =   240
      X2              =   5040
      Y1              =   480
      Y2              =   480
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H00008000&
      Caption         =   "Flip! for Windows"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   4815
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00008000&
      Caption         =   "Programming and Musical Adaptations by:"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   5055
   End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
FrmAbout.Hide
End Sub

Private Sub Command1_Click()
Dim tit
Dim mes
Dim dia
Dim res
mes = "Hey Jason;  Stay Kool!"
tit = "Message from Me to Me!"
dia = vbOK + vbInformation
res = MsgBox(mes, dia, tit) '<---  Yeah right!  you found it!
End Sub


Private Sub Form_Activate()
FrmAbout.Left = (Screen.Width / 2) - (FrmAbout.Width / 2)
FrmAbout.Top = (Screen.Height / 2) - (FrmAbout.Height / 2)
End Sub