需要加一个关键字:
   Dim kkk() As Form, i%
   For i = 0 To 3
      ReDim Preserve kkk(i)
      Set kkk(i) = New Form1
   Next i

说得对，固定的数组确是没必要加Preserve了……
如4楼这样，既可达到目的，又可适当的加快运行速度。