Public Sub einfuegenbut_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles einfuegenbut.Click
 
 
        For Each f As Form In Me.MdiParent.MdiChildren 'Array mit den 
        ' MDI_Childrens
            If f.Name = "frmauftrag" Then ' zb.: frmMDICHILD
                CType(f, frmAuftrag).modellalbl.Text = Me.toralbl.Text  ' 
                ' frmMDICHILD die Form. Das ist der Name welcher in der 
                ' gesucheten Form hinter Public Class "DEIN_MDI_FORM" steht
            End If
        Next
End Sub