'Variable für Controls auf Form1
Dim WithEvents tbo As VB.TextBox
Dim WithEvents btn As VB.CommandButton
 
'Variable für weitere Formularinstanz
Private subform As Form1
 
 
Private Sub btn_Click()
   'Erstellung einer neuen Instanz 
   Set subform = New Form1
 
   subform.Show 'Controls werden erstellt
 
   'Übergabe des Inhalts der Texteigenschaft
   subform.TBO_Text = Me.TBO_Text
End Sub
 
Private Sub Form_Load()
 
   'Instanzen der Controls erstellen und einrichten
   Set tbo = Me.Controls.Add("VB.TextBox", "tbo1")
   tbo.Visible = True
   Set btn = Me.Controls.Add("VB.CommandButton", "btn1")
   btn.Top = 600: btn.Caption = "SubForm"
   btn.Visible = True
End Sub
 
'Eigenschaft für Setzen und Abfragen eines Textes
Public Property Let TBO_Text(ByVal str As String)
    tbo.Text = str
End Property
 
Public Property Get TBO_Text() As String
    TBO_Text = tbo.Text
End Property
 
 
'Beispiel für eine Ereignisverarbeitung
Public Sub tbo_change()
    Me.Caption = tbo.Text
End Sub