Here's one way:

VB Code:
  1. Option Explicit

  2.  
  3. Private Sub Form_Load()

  4. Dim frm() As Form

  5. Dim x As Integer

  6. For x = 0 To 3

  7.   ReDim Preserve frm(x)

  8.   Set frm(x) = New Form2

  9.   frm(x).Left = Form1.Left + (x * 20)

  10.   frm(x).Show

  11. Next x

  12. End Sub