home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / multinst.fr_ / multinst.bin
Text File  |  1993-04-28  |  1KB  |  40 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. End
  25. Option Explicit
  26.  
  27. Sub Command1_Click ()
  28. Dim F As New Form1  ' Declare form variable
  29.     F.Show          ' Load and display new instance
  30.  
  31.     ' Move and color new instance
  32.     F.Move Left + (Width \ 10), Top + (Height \ 10)
  33.     F.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
  34. End Sub
  35.  
  36. Sub Form_Load ()
  37.     Randomize
  38. End Sub
  39.  
  40.