'// Alle Obj. abhängig vom Obj.Typ des SReport ermitteln
  Private Function GetObjectsFromSubReport(ByVal FromReport As _
    CrystalDecisions.CrystalReports.Engine.SubreportObject, ByVal ObjectType As _
    Type) As CrystalDecisions.CrystalReports.Engine.ReportObject()
        Dim arr As New ArrayList
        Dim rd As CrystalDecisions.CrystalReports.Engine.ReportDocument
        rd = FromReport.OpenSubreport(FromReport.SubreportName)
        For Each cro As CrystalDecisions.CrystalReports.Engine.ReportObject In _
          rd.ReportDefinition.ReportObjects
            If cro.GetType Is ObjectType Then
                arr.Add(cro)
            End If
        Next
        Return CType(arr.ToArray(GetType( _
          CrystalDecisions.CrystalReports.Engine.ReportObject)), _
          CrystalDecisions.CrystalReports.Engine.ReportObject())
    End Function
 
    '// Alle SReports eines Reports ermitteln ...
    Private Function GetAllSubReports(ByVal FromReport As _
      CrystalDecisions.CrystalReports.Engine.ReportClass) As _
      CrystalDecisions.CrystalReports.Engine.SubreportObject()
        Dim arr As New ArrayList
        For Each rs As CrystalDecisions.CrystalReports.Engine.Section In _
          FromReport.ReportDefinition.Sections()
            For Each o As Object In rs.ReportObjects
                If o.GetType Is GetType( _
                  CrystalDecisions.CrystalReports.Engine.SubreportObject) Then
                    arr.Add(CType(o, _
                    CrystalDecisions.CrystalReports.Engine.SubreportObject))
                End If
            Next
        Next
        Return CType(arr.ToArray(GetType( _
          CrystalDecisions.CrystalReports.Engine.SubreportObject)), _
          CrystalDecisions.CrystalReports.Engine.SubreportObject())
    End Function

      Dim rpt As New [DEIN_REPORT]
       Dim srpt As CrystalDecisions.CrystalReports.Engine.SubreportObject() = _
         Me.GetAllSubReports(rpt)
        If srpt.Length > 0 Then
            For Each csr As _
              CrystalDecisions.CrystalReports.Engine.SubreportObject In srpt
                For Each o As _
                CrystalDecisions.CrystalReports.Engine.ReportObject In _
                GetObjectsFromSubReport(csr, GetType( _
                CrystalDecisions.CrystalReports.Engine.PictureObject))
                    MessageBox.Show("ObjektName: " + o.Name + " : ObjektType: " _
                    + o.GetType.Name)
                Next
            Next
        End If