home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD77177122000.psc / Form2.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-07-12  |  1.6 KB  |  56 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "Michael Belenky"
  5.    ClientHeight    =   3810
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8595
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   3810
  11.    ScaleWidth      =   8595
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Timer Timer1 
  14.       Interval        =   100
  15.       Left            =   480
  16.       Top             =   3000
  17.    End
  18.    Begin VB.CommandButton Command1 
  19.       Caption         =   "OK"
  20.       Height          =   495
  21.       Left            =   3240
  22.       TabIndex        =   1
  23.       Top             =   3000
  24.       Width           =   1935
  25.    End
  26.    Begin VB.Label Label1 
  27.       BackColor       =   &H00FFC0C0&
  28.       Caption         =   $"Form2.frx":0000
  29.       BeginProperty Font 
  30.          Name            =   "Arial"
  31.          Size            =   9.75
  32.          Charset         =   177
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       ForeColor       =   &H00FFFFFF&
  39.       Height          =   735
  40.       Left            =   480
  41.       TabIndex        =   0
  42.       Top             =   960
  43.       Width           =   7815
  44.    End
  45. Attribute VB_Name = "Form2"
  46. Attribute VB_GlobalNameSpace = False
  47. Attribute VB_Creatable = False
  48. Attribute VB_PredeclaredId = True
  49. Attribute VB_Exposed = False
  50. Private Sub Command1_Click()
  51. Unload Me
  52. End Sub
  53. Private Sub Timer1_Timer()
  54. Label1.BackColor = RGB(0, 0, Rnd * 255)
  55. End Sub
  56.