Option Explicit
Private oMyParent As Form1
 
Private Sub Form_Load()
  Label1.Caption = "Keinen Schimmer wo ich her bin"
End Sub
 
Public Sub Init(oParentForm As Form1)
  Set oMyParent = oParentForm
  Label1.Caption = "Ahhh ... Mein Guru ist: " & oMyParent.Caption
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  ' so nun den Parent versorgen
  oMyParent.List1.AddItem "Irgendwas"
End Sub

Private Sub cmdInterval_Click()
  Dim oForm As Form2
 
  Set oForm = New Form2
  ' nun sagen wir von wem das Form denn nun ist
  oForm.Init Me
  oForm.Show vbModal
 
End Sub