SoloCodigo

Estoy realizando un proyecto en Visual Basic 6.0 y los reportes con CrystalReport 8.0, pero quiero llamar el reporte desde un command, visitando algunos foros como este y otros medios encontre este codigo:
Private Sub Command1_Click()
Dim estado As Single
CrystalReport3.Destination = 0 '(por pantalla)
CrystalReport3.RetrieveDataFiles
CrystalReport3.DiscardSavedData = True
estado = CrystalReport3.PrintReport

End Sub

El problema es que cuando yo ejecuto el sistema y doy click en el command me aparece solo unos instantes el reporte y no alcanzo a verlo ni a imprimirlo.

Alguien me podria ayudar por favor..... gracias