home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / sound / midiww / mdiform1.frm < prev    next >
Text File  |  1995-02-27  |  1KB  |  49 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "MidiWW VBX Demo"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   4545
  9.    Left            =   1035
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   1020
  12.    Width           =   7485
  13.    Begin PictureBox Picture1 
  14.       Align           =   1  'Align Top
  15.       BackColor       =   &H00C0C0C0&
  16.       Height          =   615
  17.       Left            =   0
  18.       ScaleHeight     =   585
  19.       ScaleWidth      =   7335
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   7365
  23.       Begin CommandButton Command1 
  24.          Caption         =   "New Instrument"
  25.          Height          =   375
  26.          Left            =   120
  27.          TabIndex        =   1
  28.          Top             =   120
  29.          Width           =   1695
  30.       End
  31.    End
  32. End
  33.  
  34. Sub Command1_Click ()
  35.     Dim InstrumentCount As Integer
  36.  
  37.     InstrumentCount = UBound(Instruments) + 1
  38.     ReDim Preserve Instruments(InstrumentCount)
  39.     Instruments(InstrumentCount).Show
  40. End Sub
  41.  
  42. Sub MDIForm_Load ()
  43.     WindowState = 2
  44.     ReDim Instruments(0)
  45.     Instruments(0).Show
  46.     About.Show 1
  47. End Sub
  48.  
  49.