home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / MULTINST.FR_ / MULTINST.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  1001 b   |  35 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2370
  5.    ClientLeft      =   1035
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4380
  8.    ClipControls    =   0   'False
  9.    Height          =   2775
  10.    Left            =   975
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2370
  13.    ScaleWidth      =   4380
  14.    Top             =   1140
  15.    Width           =   4500
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Command1"
  18.       Height          =   735
  19.       Left            =   960
  20.       TabIndex        =   0
  21.       Top             =   840
  22.       Width           =   2175
  23.    End
  24. Option Explicit
  25. Sub Command1_Click ()
  26. Dim F As New Form1  ' Declare form variable
  27.     F.Show          ' Load and display new instance
  28.     ' Move and color new instance
  29.     F.Move Left + (Width \ 10), Top + (Height \ 10)
  30.     F.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
  31. End Sub
  32. Sub Form_Load ()
  33.     Randomize
  34. End Sub
  35.