home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples5 / ch14 / frmmorn.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-16  |  1.7 KB  |  59 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMorning 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   1455
  6.    ClientLeft      =   75
  7.    ClientTop       =   75
  8.    ClientWidth     =   4680
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1455
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   500
  19.       Left            =   270
  20.       Top             =   1170
  21.    End
  22.    Begin VB.Label Label1 
  23.       Alignment       =   2  'Center
  24.       BackStyle       =   0  'Transparent
  25.       Caption         =   "Good Morning!"
  26.       BeginProperty Font 
  27.          Name            =   "Swis721 Cn BT"
  28.          Size            =   26.25
  29.          Charset         =   0
  30.          Weight          =   700
  31.          Underline       =   0   'False
  32.          Italic          =   -1  'True
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       ForeColor       =   &H000000FF&
  36.       Height          =   825
  37.       Left            =   180
  38.       TabIndex        =   0
  39.       Top             =   450
  40.       Width           =   4155
  41.    End
  42. Attribute VB_Name = "frmMorning"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = False
  45. Attribute VB_PredeclaredId = True
  46. Attribute VB_Exposed = False
  47. Option Explicit
  48. ' Copyright 
  49.  1997 by Desaware Inc. All Rights Reserved
  50. Dim counter&
  51. Private Sub Form_Load()
  52.    counter = 0
  53. End Sub
  54. Private Sub Timer1_Timer()
  55.    Label1.Visible = Not Label1.Visible
  56.    counter = counter + 1
  57.    If counter > 8 Then Unload Me
  58. End Sub
  59.