Reset imageBox on a form?

[Bosve]

How do I reset a imagebox on a form? I use a command button to reset all the other fields but it doesn't work on a image box.
The code:

Private Sub rstFields_Click()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox
If ctl.ControlSource = "" Then
ctl.Value = Null
End If
Case Else
End Select
Next ctl

End Sub

 

[Trevor G]

If it is a picture object then you have to look at doing this

Me.Image0.Picture = ""

 

[Bosve]

If it is a picture object then you have to look at doing this

Me.Image0.Picture = ""

Can i somehow include that line in the code above?

 

[Trevor G]

Place it just after this

ctl.Value = Null

 

[Bosve]

Place it just after this

Thanks! Works great now.