home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / JCG_Tetris20261610202006.psc / creditos.frm < prev    next >
Text File  |  2006-10-17  |  5KB  |  167 lines
  1. VERSION 5.00
  2. Begin VB.Form creditos 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   2670
  6.    ClientLeft      =   15
  7.    ClientTop       =   15
  8.    ClientWidth     =   4500
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form3"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   2670
  15.    ScaleWidth      =   4500
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frame1 
  18.       BackColor       =   &H00000000&
  19.       Enabled         =   0   'False
  20.       Height          =   2580
  21.       Left            =   90
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   4320
  25.       Begin VB.Timer Timer1 
  26.          Interval        =   1
  27.          Left            =   855
  28.          Top             =   2160
  29.       End
  30.       Begin VB.Image Image1 
  31.          Height          =   480
  32.          Left            =   135
  33.          Picture         =   "creditos.frx":0000
  34.          Top             =   195
  35.          Width           =   480
  36.       End
  37.       Begin VB.Label Label5 
  38.          Alignment       =   2  'Center
  39.          BackStyle       =   0  'Transparent
  40.          Caption         =   "gotuzzo@excite.com"
  41.          BeginProperty Font 
  42.             Name            =   "MS Sans Serif"
  43.             Size            =   9.75
  44.             Charset         =   0
  45.             Weight          =   700
  46.             Underline       =   0   'False
  47.             Italic          =   0   'False
  48.             Strikethrough   =   0   'False
  49.          EndProperty
  50.          ForeColor       =   &H000080FF&
  51.          Height          =   270
  52.          Left            =   60
  53.          TabIndex        =   5
  54.          Top             =   1545
  55.          Width           =   4200
  56.       End
  57.       Begin VB.Label Label4 
  58.          Alignment       =   2  'Center
  59.          BackStyle       =   0  'Transparent
  60.          Caption         =   "Todos Los Derechos Reservados."
  61.          BeginProperty Font 
  62.             Name            =   "MS Sans Serif"
  63.             Size            =   9.75
  64.             Charset         =   0
  65.             Weight          =   700
  66.             Underline       =   0   'False
  67.             Italic          =   0   'False
  68.             Strikethrough   =   0   'False
  69.          EndProperty
  70.          ForeColor       =   &H000080FF&
  71.          Height          =   285
  72.          Left            =   75
  73.          TabIndex        =   4
  74.          Top             =   2160
  75.          Width           =   4185
  76.       End
  77.       Begin VB.Label Label3 
  78.          Alignment       =   2  'Center
  79.          BackStyle       =   0  'Transparent
  80.          Caption         =   "El 9 de Mayo de 2006"
  81.          BeginProperty Font 
  82.             Name            =   "MS Sans Serif"
  83.             Size            =   9.75
  84.             Charset         =   0
  85.             Weight          =   700
  86.             Underline       =   0   'False
  87.             Italic          =   0   'False
  88.             Strikethrough   =   0   'False
  89.          EndProperty
  90.          ForeColor       =   &H000080FF&
  91.          Height          =   285
  92.          Left            =   315
  93.          TabIndex        =   3
  94.          Top             =   1095
  95.          Width           =   3840
  96.       End
  97.       Begin VB.Label Label2 
  98.          Alignment       =   2  'Center
  99.          BackStyle       =   0  'Transparent
  100.          Caption         =   "Julio C. Gotuzzo"
  101.          BeginProperty Font 
  102.             Name            =   "MS Sans Serif"
  103.             Size            =   9.75
  104.             Charset         =   0
  105.             Weight          =   700
  106.             Underline       =   0   'False
  107.             Italic          =   0   'False
  108.             Strikethrough   =   0   'False
  109.          EndProperty
  110.          ForeColor       =   &H000080FF&
  111.          Height          =   285
  112.          Left            =   150
  113.          TabIndex        =   2
  114.          Top             =   675
  115.          Width           =   4050
  116.       End
  117.       Begin VB.Label Label1 
  118.          Alignment       =   2  'Center
  119.          BackStyle       =   0  'Transparent
  120.          Caption         =   "Tetris Desarrollado Por:"
  121.          BeginProperty Font 
  122.             Name            =   "MS Sans Serif"
  123.             Size            =   9.75
  124.             Charset         =   0
  125.             Weight          =   700
  126.             Underline       =   0   'False
  127.             Italic          =   0   'False
  128.             Strikethrough   =   0   'False
  129.          EndProperty
  130.          ForeColor       =   &H000080FF&
  131.          Height          =   285
  132.          Left            =   150
  133.          TabIndex        =   1
  134.          Top             =   285
  135.          Width           =   4005
  136.       End
  137.    End
  138. End
  139. Attribute VB_Name = "creditos"
  140. Attribute VB_GlobalNameSpace = False
  141. Attribute VB_Creatable = False
  142. Attribute VB_PredeclaredId = True
  143. Attribute VB_Exposed = False
  144. 'Desarrollado Por Julio C. Gotuzzo
  145. 'Buenos Aires - Argentina
  146. 'gotuzzo@excite.com
  147.  
  148. Dim reloj As Integer
  149. Dim cont As Integer
  150.  
  151. Private Sub Form_Click()
  152.  End
  153. End Sub
  154.  
  155. Private Sub Form_Load()
  156.  reloj = Second(Time)
  157.  cont = 0
  158. End Sub
  159.  
  160. Private Sub Timer1_Timer()
  161.  If cont = 5 Then End
  162.  If reloj <> Second(Time) Then
  163.   reloj = Second(Time)
  164.   cont = cont + 1
  165.  End If
  166. End Sub
  167.