home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch19code / wintest.bas < prev    next >
BASIC Source File  |  1995-08-14  |  244b  |  12 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Sub main()
  5.     Dim x As Object, i As Integer
  6.     Set x = GetObject("", "CollectionDemo.application")
  7.     For i = 1 To 10
  8.         x.Windows.Add
  9.     Next i
  10.     x.Windows.Arrange 1
  11. End Sub
  12.