Public Type gt_MyType
  the_0 As Long
  the_1 As Long
End Type

Private m_arMyType() As gt_MyType
 
Private Sub Form_Load()
 
  Dim i As Integer
 
  ReDim m_arMyType(0 To 29)
 
  For i = 0 To 29
    With m_arMyType(i)
      .the_0 = i * 5 + 10
      .the_1 = i * 2 + 15
    End With
  Next i
 
  ReDim Preserve m_arMyType(0 To 99)
 
End Sub

Gruß
Dirk

--
?Get it right the first time