Boa tarde!!

Eu ainda não baixei seu anexo, mas tente.
Suponde que você está usando um image control
tente

UserForm1.Image1.Picture = LoadPicture("") 

Att

alexandre, Bom Dia!

gostaria que desse uma olhada no arquivo, pois nao entendo muito de programação em VBA, eu montei esse formulario a partir de varios outros topicos q eu li aki no forum.

se possivel gostaria que sinalizasse o que esta de errado nele.

Bom dia!!

Veja ...

Private Sub CommandButton1_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
      If TypeName(ctl) = "TextBox" Then
        ctl.Text = vbNullString
      End If
    Next ctl
    PROCEDIMENTO.Image1.Picture = LoadPicture("") '<- Veja........
    textbox1.SetFocus
    
End Sub

Att

funcionou, muito obrigado.

poderia me ajudar com outro probleminha?

para carregar a foto eu coloco o codigo "Call carrega_foto" conforme o codigo abaixo, porem quando eu clico pra limpar ele carrega a msg de erro q eu adicionei abaixo, como faço para nao aconceter isso?

Private Sub textbox1_afterupdate()

    Plan2.Select

    resposta = Range("A2").End(xlDown).Row

    Dim linha As Integer
    Dim codigo As String

    codigo = textbox1.Text


    On Error GoTo nao_encontrado

    'Localiza um registro sem o looping pelo método find
    linha = Sheets("PROCEDIMENTO").Range("A:A").Find(codigo).Row
    
           
      'TextBox1 = Sheets("PROCEDIMENTO").Cells(linha, 1)
      TextBox2 = Sheets("PROCEDIMENTO").Cells(linha, 2)
      TextBox3 = Sheets("PROCEDIMENTO").Cells(linha, 3)
      TextBox4 = Sheets("PROCEDIMENTO").Cells(linha, 4)
      TextBox5 = Sheets("PROCEDIMENTO").Cells(linha, 5)
      TextBox6 = Sheets("PROCEDIMENTO").Cells(linha, 6)
      TextBox7 = Sheets("PROCEDIMENTO").Cells(linha, 7)
      TextBox8 = Sheets("PROCEDIMENTO").Cells(linha, 8)
  
 
 Call carrega_foto '<<<<<<<<<<<<<<< 
     Exit Sub
     
nao_encontrado:
    
    resposta = MsgBox("CÓDIGO NAO CADASTRADO!", vbCritical, "!!!!ALERTA DE ERRO!!!!")
    

   
     
End Sub

Boa tarde!!

Se eu entendi, há algumas formas, tente essa

comente a linha

'textbox1.SetFocus

, que está dentro do botão Limpar

Att

cara muito obrigado.

você é 10.