home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / controls / form1.frm < prev    next >
Encoding:
Text File  |  1993-05-16  |  1.1 KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form frmForm1 
  3.    ClientHeight    =   4020
  4.    ClientLeft      =   2955
  5.    ClientTop       =   2235
  6.    ClientWidth     =   2640
  7.    Height          =   4425
  8.    Left            =   2895
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   4020
  11.    ScaleWidth      =   2640
  12.    Top             =   1890
  13.    Width           =   2760
  14.    Begin PictureBox picP2 
  15.       Height          =   975
  16.       Left            =   600
  17.       ScaleHeight     =   945
  18.       ScaleWidth      =   1305
  19.       TabIndex        =   1
  20.       Top             =   2040
  21.       Width           =   1335
  22.    End
  23.    Begin PictureBox picP1 
  24.       Height          =   975
  25.       Left            =   600
  26.       ScaleHeight     =   945
  27.       ScaleWidth      =   1305
  28.       TabIndex        =   0
  29.       Top             =   480
  30.       Width           =   1335
  31.    End
  32. End
  33.  
  34. Sub Form_Click ()
  35.     'This form will be 'cloned' several times.
  36.     'Only the first form will have a name.
  37.     'For the clones to call the function, Me is the
  38.     'only way for a form to pass itself to a subroutine.
  39.     
  40.     SetFormColor Me
  41.  
  42. End Sub
  43.  
  44.