Projects

MindPower Tic Tac Toe

June 10, 2005 by Java

Browsing Credits.frm (2.82 KB)

VERSION 5.00
Begin VB.Form Credits 
   BackColor       =   &H00000000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "MindPower Tic Tac Toe Credits..."
   ClientHeight    =   2160
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5640
   ClipControls    =   0   'False
   ForeColor       =   &H00FFFFFF&
   Icon            =   "Credits.frx":0000
   LinkTopic       =   "Credits"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2160
   ScaleWidth      =   5640
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   800
      Left            =   0
      Top             =   0
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   1935
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5415
   End
End
Attribute VB_Name = "Credits"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Msg()
Dim NoClose, DoClose, T, MsgNum

Sub ChangeColor()
NoClose = True
Label1.ForeColor = vbBlack
Label1.Caption = Msg(MsgNum)
For i = 0 To 255
Label1.ForeColor = RGB(i, 0, 0)
D = DoEvents()
Next i
NoClose = False
If DoClose = True Then Unload Me
MsgNum = MsgNum + 1
If MsgNum > T Then MsgNum = 0
Timer1.Enabled = True
End Sub


Private Sub Form_Click()
Unload Me
End Sub

Private Sub Form_Load()
NoClose = False
DoClose = False
MsgNum = 0
T = 7
ReDim Msg(T)
Msg(0) = vbCrLf & vbCrLf & "MindPower Software Presents..."
Msg(1) = vbCrLf & "Tic Tac Toe," & vbCrLf & "With TCP/IP Internet Play."
Msg(2) = vbCrLf & vbCrLf & "Programmed By..."
Msg(3) = vbCrLf & vbCrLf & "Jason Java"
Msg(4) = vbCrLf & vbCrLf & "Tested By..."
Msg(5) = vbCrLf & "Jason Java" & vbCrLf & "Chris Daetwyler" & vbCrLf & "Chris Hagerman"
Msg(6) = vbCrLf & vbCrLf & "Visit MindPower Online At..."
Msg(7) = vbCrLf & vbCrLf & "http://mindpower.tytek.net/"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode < 2 Then
If NoClose = True Then Cancel = True: DoClose = True
End If
End Sub


Private Sub Label1_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer1.Interval = 3000
ChangeColor
End Sub

Download Credits.frm

Back to file list

---

Back to project page