home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / about / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-09-06  |  2.5 KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form About 
  3.    BackColor       =   &H00000080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About"
  6.    ClientHeight    =   2670
  7.    ClientLeft      =   2235
  8.    ClientTop       =   2415
  9.    ClientWidth     =   5460
  10.    Height          =   3075
  11.    Left            =   2175
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2670
  17.    ScaleWidth      =   5460
  18.    Top             =   2070
  19.    Width           =   5580
  20.    Begin Timer Timer1 
  21.       Interval        =   1500
  22.       Left            =   5040
  23.       Top             =   2160
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "Continue..."
  27.       Height          =   495
  28.       Left            =   2040
  29.       TabIndex        =   1
  30.       Top             =   2040
  31.       Width           =   1455
  32.    End
  33.    Begin PictureBox Picture1 
  34.       Enabled         =   0   'False
  35.       Height          =   495
  36.       Left            =   360
  37.       Picture         =   ABOUT.FRX:0000
  38.       ScaleHeight     =   465
  39.       ScaleWidth      =   465
  40.       TabIndex        =   2
  41.       Top             =   1200
  42.       Width           =   495
  43.    End
  44.    Begin PictureBox Picture2 
  45.       Enabled         =   0   'False
  46.       Height          =   495
  47.       Left            =   4560
  48.       Picture         =   ABOUT.FRX:0302
  49.       ScaleHeight     =   465
  50.       ScaleWidth      =   465
  51.       TabIndex        =   3
  52.       Top             =   1080
  53.       Width           =   495
  54.    End
  55.    Begin TextBox Text1 
  56.       Enabled         =   0   'False
  57.       Height          =   1215
  58.       Left            =   1200
  59.       MultiLine       =   -1  'True
  60.       TabIndex        =   0
  61.       TabStop         =   0   'False
  62.       Text            =   "                                                      Bouncing Command Button                                                                     by Lou Marino"
  63.       Top             =   720
  64.       Width           =   3015
  65.    End
  66. DefInt A-Z
  67. Sub Command1_Click ()
  68.     Unload ABOUT
  69. End Sub
  70. Sub Timer1_Timer ()
  71.      Randomize Timer
  72. RETRY:
  73.     A = Int(Rnd * ABOUT.HEIGHT + 1)
  74.     B = Int(Rnd * ABOUT.WIDTH + 1)
  75.     If A + COMMAND1.HEIGHT + 300 > ABOUT.HEIGHT Then
  76.         GoTo RETRY
  77.     End If
  78.     If B + COMMAND1.WIDTH > ABOUT.WIDTH Then
  79.         GoTo RETRY
  80.     End If
  81.     Beep
  82.     COMMAND1.Move B, A
  83.     COMMAND1.Refresh
  84. End Sub
  85.