Dim r As New <Reportname>
Dim f As New Form
Dim rv As New CrystalDecisions.Windows.Forms.CrystalReportViewer
 
r.SetDataSource(IndexDataset.Tables(<Name oder Index des DataTables für den _
  Hauptbericht >))
 
r.OpenSubreport(<Name des 1. Subreport>).SetDataSource(IndexDataset.Tables( _
  <Name oder Index des DataTables für den 1. Subreport >))
 
r.OpenSubreport(<Name des 2. Subreport>).SetDataSource(IndexDataset.Tables( _
  <Name oder Index des DataTables für den 2. Subreport >))
 
' // usw. 
 
f.WindowState = FormWindowState.Maximized
f.Controls.Add(rv)
rv.Size = f.Size
rv.Dock = DockStyle.Fill
f.Controls.Add(rv)
rv.ReportSource = r
f.Show()