home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / lotter / lotfrm2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-03  |  3.9 KB  |  140 lines
  1. VERSION 2.00
  2. Begin Form form2 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "About......"
  5.    ClientHeight    =   3132
  6.    ClientLeft      =   1584
  7.    ClientTop       =   2100
  8.    ClientWidth     =   5088
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00FFFFFF&
  12.    Height          =   3552
  13.    Left            =   1536
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3132
  18.    ScaleWidth      =   5088
  19.    Top             =   1728
  20.    Width           =   5184
  21.    Begin Timer Timer1 
  22.       Left            =   240
  23.       Top             =   2280
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "&OK"
  27.       Height          =   372
  28.       Left            =   2160
  29.       TabIndex        =   3
  30.       Top             =   2280
  31.       Width           =   972
  32.    End
  33.    Begin Line Line2 
  34.       X1              =   1440
  35.       X2              =   840
  36.       Y1              =   480
  37.       Y2              =   600
  38.    End
  39.    Begin Line Line1 
  40.       X1              =   1200
  41.       X2              =   840
  42.       Y1              =   360
  43.       Y2              =   600
  44.    End
  45.    Begin Shape Shape1 
  46.       Height          =   492
  47.       Left            =   1200
  48.       Shape           =   2  'Oval
  49.       Top             =   120
  50.       Width           =   3132
  51.    End
  52.    Begin Label Label4 
  53.       Caption         =   "SpecialThanks to Alex at BitSoft "
  54.       Height          =   252
  55.       Left            =   1440
  56.       TabIndex        =   4
  57.       Top             =   240
  58.       Width           =   3132
  59.    End
  60.    Begin Image Image2 
  61.       Height          =   612
  62.       Left            =   360
  63.       Top             =   360
  64.       Width           =   612
  65.    End
  66.    Begin Image Image1 
  67.       Height          =   384
  68.       Index           =   1
  69.       Left            =   840
  70.       Picture         =   LOTFRM2.FRX:0000
  71.       Top             =   2520
  72.       Visible         =   0   'False
  73.       Width           =   384
  74.    End
  75.    Begin Image Image1 
  76.       Height          =   384
  77.       Index           =   0
  78.       Left            =   840
  79.       Picture         =   LOTFRM2.FRX:0302
  80.       Top             =   2160
  81.       Visible         =   0   'False
  82.       Width           =   384
  83.    End
  84.    Begin Label Label3 
  85.       Caption         =   "100445.2626@compuserve.com"
  86.       Height          =   252
  87.       Left            =   1320
  88.       TabIndex        =   2
  89.       Top             =   1800
  90.       Width           =   2772
  91.    End
  92.    Begin Label Label2 
  93.       Alignment       =   2  'Center
  94.       Caption         =   "by Ian Riley"
  95.       FontBold        =   -1  'True
  96.       FontItalic      =   0   'False
  97.       FontName        =   "Times New Roman"
  98.       FontSize        =   12
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       Height          =   372
  102.       Left            =   1440
  103.       TabIndex        =   1
  104.       Top             =   1320
  105.       Width           =   2292
  106.    End
  107.    Begin Label Label1 
  108.       Alignment       =   2  'Center
  109.       Caption         =   "Lottery Numbers"
  110.       FontBold        =   0   'False
  111.       FontItalic      =   0   'False
  112.       FontName        =   "Times New Roman"
  113.       FontSize        =   18
  114.       FontStrikethru  =   0   'False
  115.       FontUnderline   =   -1  'True
  116.       Height          =   372
  117.       Left            =   1200
  118.       TabIndex        =   0
  119.       Top             =   720
  120.       Width           =   3132
  121.    End
  122. Sub Command1_Click ()
  123. Unload Me
  124. form1.Show
  125. End Sub
  126. Sub Form_Load ()
  127. timer1.Enabled = True
  128. timer1.Interval = 200
  129. End Sub
  130. Sub Timer1_Timer ()    ' Event occurs when timer reaches zero and resets
  131.    Static i%
  132.    If i = 0 Then
  133.       i = 1
  134.    Else
  135.       i = 0
  136.    End If
  137.    image2 = image1(i)
  138.    form1.Icon = image1(i)
  139. End Sub
  140.