Private Z1 As Long
 
Private Sub Form_Load()
 
  Z1 = MSFlexGrid1.FixedRows
 
End Sub
 
Private Sub Command1_Click()
 
  With MSFlexGrid1
    If .Rows - .FixedRows < Z1 Then .Rows = .Rows + 1
    .TextMatrix(Z1, 1) = Trim$(Text1.Text)
  End With
  Z1 = Z1 + 1
 
End Sub

Gruss,

Zardoz