Private Sub Form_Load()
Me.Top = 0
Me.Left = frmGrunddaten.Width
Me.Height = frmGrunddaten.Height
Me.Width = 7100
 
Dim Y As Integer
Y = 0
 
Dim datum As Date
Dim Tage As Integer
Tage = frmGrunddaten.txtTage.Text
datum = frmGrunddaten.txtVon.Text
 
For i = 1 To TlnList.count
     Load fraTln(i)
 
     If i = 1 Then fraTln(i).Top = 500 Else fraTln(i).Top = fraTln(i - 1).Top + _
       fraTln(0).Height + 100
     fraTln(i).Caption = TlnList.item(i).TeilnName
     fraTln(i).Visible = True
 
Next
End Sub