Dim TBX As Control
Dim TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, _
  TextBox8, 
..............................................................................._
...........................TextBox81 As New TextBox
 
 
 
 
 
Private Sub InitDesktop()
        Const X1 As Integer = 36
        Dim X As Integer
        Dim j As Integer
        Dim i As Integer
 
        Dim BUT As Control
        Dim ButtonLoad As New Button
        Dim ButtonSave As New Button
        Dim ButtonCancel As New Button
 
        Me.Controls.Add(ButtonLoad)
        Me.Controls.Add(ButtonSave)
        Me.Controls.Add(ButtonCancel)
 
        AddHandler ButtonLoad.Click, AddressOf ButtonLoad_Click
        AddHandler ButtonSave.Click, AddressOf ButtonSave_Click
        AddHandler ButtonCancel.Click, AddressOf ButtonCancel_Click
 
        Me.Controls.Add(TextBox1)
        Me.Controls.Add(TextBox2)
        .
        .
        .
        .
       Me.Controls.Add(TextBox80)
       Me.Controls.Add(TextBox81)
       .
       .
        -->  Hiernach weden die Textboxen auf der Form positioniert.

**********************************************************************
* Glauben ist gut aber ab und zu sollte man auch was wissen *
**********************************************************************