Option Explicit
    Dim x As Form_Formular2
    Dim y As Form_Formular2
 
 
Private Sub Befehl0_Click()
 
    Set x = New Form_Formular2
    x.Visible = True
    Set y = New Form_Formular2
    y.Visible = True
 
 
End Sub
 
Private Sub Befehl1_Click()
    Dim f As Form
 
    For Each f In Application.Forms
        MsgBox f.Name
        Forms(f.Name).Caption = "###"
    Next
End Sub
 
Private Sub Befehl2_Click()
    Forms("Formular2").Caption = "###"
End Sub