Crystal Report - ayuda visual con cristal

Holas engo un problemilla con cristal pngo el siguiente codigo, pero abre y autoaticamente cierra la venta con el reporte de cristal si alguien me puede ayudar se lo agradeceria

Public Sub lst_reportes_DblClick()

Dim cristal As Object
Set cristal = CreateObject("Crystal.CrystalReport")
With cristal
.ReportFileName = App.Path & lst_ruta.List(lst_reportes.ListIndex)
.WindowTitle = "rportes
.WindowMaxButton = False
.WindowShowRefreshBtn = False
.WindowState = crptMaximized
.Destination = crptToWindow
.Action = 1

End With
End Sub