[Resolvido]Visualizar arquivo TIF direto no formulario

Tenho um banco que tenho cadastrado os caminhos de arquivos em TIF, e estou criando um form com dados de indexação para essas imagens, mas preciso do seguinte.
em uma caixa de listagem, quando eu clicar em um caminho, eu consiga vizualizar a imagem no meu próprio form. tem um exemplo do mestre avelino que faz exatamente o que preciso, mas com arquivos em pdf e utiliza activex do adobe pdf reader.

como proceder com arquivos tif?

Alguem pode me ajudar.

vizualizar um arquivo tif no proprio formulario.

Boa noite,
Respeite as regras do fórum. Apaguei o outro tema que era a repetição deste.
Sobre a sua dúvida, veja aqui

ok. desculpe.

alexandre

verifiquei no site e fiz mas acho que estou fazendo algo de errado, segue o banco se puder dar uma olhada.

Desde já obrigado.

Bom dia,
Falta referências. Vamos aguardar se algum colega poder-lhe testar.

Ola a todos;

A forma mais facil que conheço é esta;

Jpaulo

adapitei para meu programinha, mas ele não vizualiza no form, e faz tipo um download mas não abre. diz que o arquivo é muito grande.

no arquivo que encaminhei em mensagem anterior não sei como colocalas no form, acho que tem alguma coisa de errado

Module code:
Option Compare Database
Option Explicit

Public Function DisplayImage(ctlImageControl As Control, strImagePath As
Variant) As String
On Error GoTo Err_DisplayImage

Dim strResult As String
Dim strDatabasePath As String
Dim intSlashLocation As Integer

With ctlImageControl
If IsNull(strImagePath) Then
.Visible = False
strResult = "No image name specified."
Else
If InStr(1, strImagePath, "\") = 0 Then
' Path is relative
strDatabasePath = CurrentProject.FullName
intSlashLocation = InStrRev(strDatabasePath, "\",
Len(strDatabasePath))
strDatabasePath = Left(strDatabasePath, intSlashLocation)
strImagePath = strDatabasePath & strImagePath
End If
.Visible = True
.Picture = strImagePath
strResult = "Image found and displayed."
End If
End With

Exit_DisplayImage:
DisplayImage = strResult
Exit Function

Err_DisplayImage:
Select Case Err.Number
Case 2220 ' Can't find the picture.
ctlImageControl.Visible = False
strResult = "Can't find image in the specified name."
Resume Exit_DisplayImage:
Case Else ' Some other error.
MsgBox Err.Number & " " & Err.Description
strResult = "An error occurred displaying image."
Resume Exit_DisplayImage:
End Select
End Function

Form code:
Option Compare Database
Option Explicit

Private Sub Form_AfterUpdate()
CallDisplayImage
End Sub

Private Sub Form_Current()
CallDisplayImage
End Sub

Private Sub txtImageName_AfterUpdate()
CallDisplayImage
End Sub

Private Sub CallDisplayImage()
Me!txtImageNote = DisplayImage(Me!txtImageID, Me!txtImagePath)
End Sub

consegui resolver fazendo uns testes.