Public Sub GetMDIForm() As Object
  Dim oForm As Form
  For Each oForm In Forms
    If TypeOf oForm Is MDIForm Then
      Set GetMDIForm = oForm
      Exit For
    End If
  Next
End Sub

Update 0, GetMDIForm()

Public Sub Update(ByVal Parameter1 As Integer, ByVal oMDIForm As Object)
 
  ' Statusanzeige
  With oMDIForm
    .Statusinfo = "blablabla..."
     ...
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de