home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / graphi2a / flash.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-20  |  2.3 KB  |  81 lines
  1. VERSION 5.00
  2. Begin VB.Form Flash 
  3.    BackColor       =   &H80000008&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Flashing Font"
  6.    ClientHeight    =   1890
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4680
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1890
  14.    ScaleWidth      =   4680
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Return 
  17.       BackColor       =   &H80000012&
  18.       Caption         =   "&Return"
  19.       Height          =   255
  20.       Left            =   4080
  21.       MaskColor       =   &H00FFFFFF&
  22.       Style           =   1  'Graphical
  23.       TabIndex        =   1
  24.       Top             =   1560
  25.       Width           =   495
  26.    End
  27.    Begin VB.Timer Timer2 
  28.       Interval        =   100
  29.       Left            =   840
  30.       Top             =   1200
  31.    End
  32.    Begin VB.Timer Timer1 
  33.       Interval        =   10
  34.       Left            =   120
  35.       Top             =   1200
  36.    End
  37.    Begin VB.Label Label1 
  38.       Alignment       =   2  'Center
  39.       BackStyle       =   0  'Transparent
  40.       Caption         =   "Scott Wellbrock"
  41.       BeginProperty Font 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   24
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   735
  51.       Left            =   600
  52.       TabIndex        =   0
  53.       Top             =   480
  54.       Width           =   3615
  55.    End
  56. Attribute VB_Name = "Flash"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Option Explicit
  62. Private Sub Form_Load()
  63. Label1.ForeColor = &H800080
  64.         Timer1.Enabled = True
  65.         Timer2.Enabled = True
  66. End Sub
  67. Private Sub Return_Click()
  68. Graphics.Show
  69. Unload Flash
  70. End Sub
  71. Private Sub Timer1_Timer()
  72.         Timer1.Enabled = False
  73.         Label1.ForeColor = Val(Label1.ForeColor) * Rnd
  74.         Timer1.Enabled = True
  75.     End Sub
  76.     Private Sub Timer2_Timer()
  77.         Timer2.Enabled = False
  78.         Label1.ForeColor = &H800080
  79.         Timer2.Enabled = True
  80.     End Sub
  81.