You need clienttoscreen api to determine to diaplay position.
Then
.............
Dim i As Form
For j = 1 To 10
Set i = New Form1
i.Caption = j
i.Show 0
Next j
...........
i have post it before.
Good Luck