Private Sub Form_Initialize()
'On Error GoTo Fehler
 
Dim k As Integer
Dim j As Integer
 
   q = 45
   w = 25
   j = 15 -I
   Me.Height = j * 500 + 1800   
 
 
For k = I To 15
  Set TextBoxNeu = Me.Controls.Add("Forms.TextBox.1", "TextBoxNeu" & CStr(k))
 
    With TextBoxNeu
        .Visible = True
         Caption = "‰  eingeben                 "                                           
        .Width = 1800
        .Height = 320
        .Top = w
        .Left = 2400
      End With
        w = w + 500                                                                                     
 
  Set LableNeu = Me.Controls.Add("VB.Label", "LableNeu" & CStr(k))         
      With LableNeu                                                                                    
            .Visible = True
            .Caption = "Drehstufe" & " " & CStr(k) 
            .Font.Bold = True                                      
            .Left = 300                                                  
            .Top = q                                                      
            .Width = 1200                                            
       End With
       q = q + 500                                                      
 
Next k
 
    Set cmd_1 = Me.Controls.Add("VB.CommandButton", "cmd_1")
    With cmd_1
      .Visible = True
      .Caption = "Werte übergeben"
      .Left = 1500
      .Top = Me.Height - 1000
      .Height = 450
      .Width = 1800
    End With
 
Fehler:
'Form2.Hide
 
End Sub