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 >
Wrap
BASIC Source File
|
1995-08-14
|
244b
|
12 lines
Attribute VB_Name = "Module1"
Option Explicit
Sub main()
Dim x As Object, i As Integer
Set x = GetObject("", "CollectionDemo.application")
For i = 1 To 10
x.Windows.Add
Next i
x.Windows.Arrange 1
End Sub