求助啊，，，，哪位老师帮我看看

AXZ1031

帮我看看这些代码好不好？？？每次查询以后会出来照片，但是退出以后第二次打开内容清空了，但是没用清空照片，，能不能把照片也清空，，，我写的代码只能每次退出时清空内容不能清空照片

Private Sub CommandButton2_Click()
UserForm3.Hide
Dim myCnt As Control
For Each myCnt In Me.Controls
If TypeName(myCnt) = "TextBox" Then
  myCnt.Object.Value = ""
  End If
Next
  End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '退出窗体时清除照片
    Image1.Picture = LoadPicture("")
End Sub