Public Sub New(ByVal doc As Document.SectionDocument)
MyBase.New()
InitializeComponent()
ViewerRports.Document = doc
End Sub
Public Sub ShowForm(sender As GrapeCity.ActiveReports.SectionReport)
Me.Show()
sender.Run()
Me.Hide()
Me.ShowDialog()
End Sub