' In Form1
Private Sub Command1_Click()
    Form1.Text1.Text = "blabla"
    Form2.Text1.Text = "blabla"
    Form2.Visible = True
End Sub

'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

Public ChangeFormular(ByRef oForm As Form)
  oForm.Text1.Text = "Neuer Text 1"
  oForm.Text2.Text = "Neuer Text 2"
End Sub

ChangeFormular Form1
ChangeFormular Form2

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

'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 New Form1
Public IsSubForm As Boolean 'Kennung für untergeordnete Form-Instanz
 
 
Private Sub btn_Click()
   'Subform erstellen/anzeigen
   subform.Show
 
   'Übergabe des Inhalts der Texteigenschaft
   subform.TBO_Text = Me.TBO_Text
End Sub
 
 
Public Sub InitForm()
   '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
 
 
Private Sub Form_Load()
     InitForm
     subform.IsSubForm = True 'Kennung unterg. Instanz
End Sub
 
 
 
'Eigenschaft für Setzen und Abfragen eines Textes
Public Property Let TBO_Text(ByVal str As String)
    If Not tbo Is Nothing Then
       tbo.Text = str
    End If
End Property
 
Public Property Get TBO_Text() As String
    If Not tbo Is Nothing Then
       TBO_Text = tbo.Text
    End If
End Property
 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  'Benutzer-Entladung untergeordneter Formulare verhindern
  If UnloadMode = vbFormControlMenu Then
     Cancel = IsSubForm
     If Cancel Then Me.Hide
  End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    'Untergeordnete Formular-Instanzen schließen
    If Not subform Is Nothing Then Unload subform
End Sub
 
 
Public Sub tbo_change()
   'Weitergabe des aktuellen Textes an unterg. Form
   subform.TBO_Text = Me.TBO_Text
End Sub

Zitat:

Die "genial einfache" Variante ist nicht empfehlenswert.

Zitat:

Bei den von Dir geschilderten Bedingungen: Beim Erstellen dieser Instanz oder beim Eintreten von Daten-Änderungen (Ereignisse im Basisformular) würde das Basisformular seine Daten an diese Eigenschaften des untergeordneten Anzeige-Formulars übergeben.

Zitat:

Auch ein passives, informatives Anzeige-Formular muß evt. auf die gegebenen Daten reagieren (z.B. Anpassung von Controls-Eigenschaften, Unterbrechung der Layoutlogik während der Zuweisungen, Resizing-Verarbeitung).