Tenho um codigo q mostra imagens em uma image. So q estas imagens estão no formato jpg e bmp

 

como fazer para se não for uma olhar a outra e se não for nenuma não mostrar nada

Codigo para ler a imagem

Image1.Picture = LoadPicture(App.Path & "CONTRATOS" & Int(MSK_CODIGO) & ".BMP")

Image1.Picture = LoadPicture(App.Path & "CONTRATOS" & Int(MSK_CODIGO) & ".JPG")

Nome as variáveis no Option Explicit

Dim sFOTO As String

Dim sLOAD As Picture

 

'Coloque esta função no formulário e chame quando quiser:

 

Private Function FOTO()
On Error GoTo erro
 suFOTO = "DRIVEPASTANOMEDAFOTO.BMP"
 If Dir$(sFOTO) = "" Then
  sFOTO = "DRIVEPASTANOMEDAFOTO.JPG"
 End If
 Set sLOAD = LoadPicture(sFOTO)
 Set Image1.Picture = sLOAD
 Exit Function
erro:
 Image1.Visible = False
 MsgBox "Não Existe Foto"
End Function

 

vlu//