Option Explicit
 
Private WithEvents CommandButtonNeu As CommandButton
Private WithEvents TextBoxNeu As TextBox
 
Private Sub Form_Load()
    Set CommandButtonNeu = Form1.Controls.Add("VB.CommandButton", _
        "CommandButtonNeu", Form1)
 
  '  Me.Controls.Add (gg)
 
'Set wbrNeu = Form1.Controls.Add("VB.wbr", _
 '       "wbrNeu", Form1)
 
 
    With CommandButtonNeu
        .Visible = True
        .Width = 1800
        .Height = 600
        .Caption = "Hier klicken"
        .Top = 300
        .Left = 300
    End With
 
     With CommandButtonNeu
        .Visible = True
        .Width = 1800
        .Height = 600
        .Caption = "Hier klicken"
        .Top = 1300
        .Left = 300
    End With
 
    Set TextBoxNeu = Form1.Controls.Add("VB.TextBox", _
        "TextBoxNeu", Form1)
 
'        Set WebBrowserNEU = Form1.Controls.Add("VB.WebBrowser", _
        "WebBrowserNEU", Form1)
 
    With TextBoxNeu
        .Visible = True
        .Width = 1800
        .Height = 600
        .Text = "Hier klicken"
        .Top = 930
        .Left = 300
    End With
 
    Dim i As Integer
 
  ' 5 weitere Textboxen laden und anzeigen
  For i = 1 To 5
    ' Textfeld laden
    Load Text1(i)
 
    With Text1(i)
      ' Neues Textfeld positionieren
      ' (immer unterhalb des vorigen Textfeldes)
      .Top = Text1(i - 1).Top + Text1(i - 1).Height + 105
 
      ' Wichtig! Neues Textfeld sichtbar machen!
      .Visible = True
 
      ' Text-Eigenschaft setzen
      .Text = "Textfeld " & CStr(i + 1)
    End With
  Next i
End Sub

Private WithEvents WebBrowseNeu As Webrowser
 
 
 
Private Sub Form_Load()
    Set WebBrowserNeu = Form1.Controls.Add("VB.WebBrowser", _
        "WebBrowserNeu ", Form1)
 
end sub

Man kann nicht immer gewinnen...
Manschmal verliert man...
Manschmal gewinnen halt die anderen !

Beitrag wurde zuletzt am 16.04.16 um 00:06:53 editiert.