'Bleibt in diesem Proekt leer
'...
'...

Option Explicit
 
Private Sub Form_Load()
    Call Form1_modul(Me)
End Sub
 
Private Sub Cmd_Form1_Click()
Dim oForm As New Form2
 
    With oForm
        .Show
    End With
 
End Sub

Option Explicit
 
Private Sub Form_Load()
    Call Form2_modul(Me)
End Sub
 
Private Sub cmd_form2_Click()
   Dim f3 As New Form3 'Form3.Mdichild=false !!
 
   f3.Show vbModal 'Hinweis-Form wird angezeigt
    'Nach dem Schließen von f3 gehts hier weiter ...
   If f3.DialogResult Then
       'Benutzer hat im Dialog Option true gewählt
       Text1_form2.text = f3.InputText
   Else
       'Benutzer hat im Dialog Option false (Abbrechen) gewählt
       'Text1_form2.text = ""
   End If
End Sub

Option Explicit
 
Public DialogResult As Boolean
Public InputText As String
Public T As String
 
 
Private Sub Form_Load()
Call Form3_modul(Me)
End Sub
 
Private Sub Cmd_ok_Form3_Click()
T = Text1_form3.text
    DialogResult = True
        InputText = T
    Unload Me
End Sub
 
Private Sub Cmd_abbrechen_Form3_Click()
    DialogResult = False
        InputText = ""
    Unload Me
End Sub

Option Explicit
 
Public Function Form1_modul(oForm As Form1)
Dim Cmd_Form1$
 
Cmd_Form1$ = "Klick hier"
oForm.Cmd_Form1.Caption = Cmd_Form1$
End Function
 
Public Function Form2_modul(oForm As Form2)
Dim cmd_form2$
Dim Label1_form2$
 
Label1_form2$ = "Hier könnte ihr Text stehen"
oForm.Label1_form2.Caption = Label1_form2$
 
cmd_form2$ = "Überprüfen"
oForm.cmd_form2.Caption = cmd_form2$
End Function
 
Public Function Form3_modul(oForm As Form3)
Dim cmd_form3$
 
cmd_form3$ = "Klicke nochmal hier"
oForm.cmd_ok_form3.Caption = cmd_form3$
End Function