


 DIM iCount AS Integer  
  DIM aNames AS String[] = ["Hans", "Maria", "Peter", "Anna", "Robert", "Stefan", "Emma", "Yvonne"]
  
  FMain.Mouse = Mouse.Wait
  FOR iCount = 1 TO 200 ' Datensätze mit Zufallsdaten
      INC GridView1.Rows.Count ' Anzeige der bereits generierten Datensätze/Zeilen in der GridView
      GridView1.MoveTo(GridView1.Rows.Count - 1, 0) ' Optional
      GridView1[iCount - 1, 0].Text = Str(GridView1.Rows.Count)
      GridView1[iCount - 1, 1].Text = Str(Round(Rnd(-100, 100), -3))
      GridView1[iCount - 1, 2].Text = Str(CBool(Round(Rnd()))) 
      GridView1[iCount - 1, 3].Text = aNames[CInt(Rnd(0, aNames.Count))]
      GridView1[iCount - 1, 4].Text = Format$(Date(Rnd(0, 2200) + CFloat(Now())), "dd.mm.yyyy")
  NEXT ' iCount  
  FMain.Mouse = Mouse.Default
END ' CreateGridValues()


  ColumnView.Add("1", "Text erste Spalte")
  ColumnView[1][1] = "Text zweite Spalte der 1. Zeile"
  ColumnView[1][2] = "Text dritte Spalte der 1. Zeile"
  
  
  covData.Add(Str(iLastKey), sFirstText, picPicture)  
  covData[iLastKey][1] = txbFirstName.Text
  covData[iLastKey][2] = txbSurName.Text
  covData[iLastKey][3] = txbEMail.Text
  covData[iLastKey][4] = txbWeb.Text

  SidePanel1.Hide()
  covData.Key = covData.Item.Key