陣列的問題(編號：5919)

Private Sub Command1_Click()
Dim So() As Object
　For i = 1 To 3
　　Set So(i) = New Form1
　　With So(i)
　　　.Caption = " HI~ "
　　　.Height = Form1.Height
　　　.Width = Form1.Width
　　　.Left = Form1.Left
　　　.Top = Form1.Top
　　　.Visible = True
　　End With
　　So(i).Show
　Next
　i = i + 1
End Sub
執行後會出現以下的訊息　　　
　　　　執行階段錯誤'9'
　　　　陣列索引超出範圍
請問一下有無解決的辦法呢?