'Aufruf Hauptformular
Dim childform As New frmMain
childform.MdiParent = Me
m_ChildFormNumber += 1
childform.Show()

'Property ... 
    Public Property AktualisiereVENs As Boolean
        Get
        End Get
        Set(ByVal value As Boolean)
            If value = True Then
                ' Call Me.dgKunden_CellClick(Nothing, Nothing)
                Call AktVENs()
            End If
        End Set
    End Property
 
'Aufruf der Detailform 
Dim ri As Integer
Dim lID As Long
Dim frm As New frmVenDetail
 
frm.MdiParent = frmMDI
frm.MainFormular = Me   'kläglicher Versuch sich selbst zu übergeben 
ri = Me.dgVEN.CurrentRow.Index
lID = Me.dgVEN.CurrentRow.Cells("id").Value
 
frm.VenID = lID
frm.Show()

'Property im Detailformular
    Private oMainFrm As frmMain
    Public Property MainFormular As frmMain
        Get
            Return Nothing
        End Get
        Set(value As frmMain)
            oMainFrm = MainFormular
        End Set
    End Property
 
private sub SaveVen()
    'Versuch eine Property im Hauptformular aus dem Detailformular aufzurufen
    oMainFrm.AktualisiereVENs = True
end Sub