PrivateSub Anteprima_Load(sender As System.Object, e As System.EventArgs) HandlesMyBase.Load        
rep.Load(Application.StartupPath + "\" & ReportDaStampare & ".rpt")        
CRV.ReportSource = rep        
CRV.RefreshReport()
EndSub   

PrivateSub Anteprima_Shown(sender AsObject, e AsEventArgs) HandlesMe.Shown        
Threading.Thread.Sleep(5000) ' Spesso non bastano manco 5 secondi        
CRV.RefreshReport()
EndSub