ارسال فایل TIF به کریستال

[Tasiyan]

Dim CrRep As New CRAXDRT.Report
Dim CrApp As New CRAXDRT.Application
Dim WithEvents Section As CRAXDRT.Section
Private Sub Form_Load()
Set CrRep = CrApp.OpenReport(App.Path & "\R.rpt")
Set Section = CrRep.Sections.Item(3)
CrystalActiveXReportViewer1.ReportSource = CrRep
CrystalActiveXReportViewer1.ViewReport
End Sub
Private Sub section_Format(ByVal pFormattingInfo As Object)
Dim TIF As StdPicture
Dim S As String
With Section.ReportObjects
Set TIF = LoadPicture(App.Path & "\1.tif")
Set .Item("Picture2").FormattedPicture = TIF
End With
Set TIF = Nothing
End Sub
عزیزان من با کد بالا فایل عکس رو به کریستال پاس میدم مشکلی که دارم اینکه فرمت JPG رو قبول میکنه ولی TIF رو Invalid Picture خطا میزنه
به گمونم مشکل از تعریف متغیر ازنوع StdPicture هستش ولی نمودنم باید از چه نوعی باشه
ممنون :لبخند:

[Tasiyan]

اساتید راه حل ؟:افسرده: