Can I make a picture appear gradually?

[simonp]

I would like to have a picture appear gradually (like a fade)

I thought something like this might work:

picAdvert.Width = 0
Dim i As Integer
For i = 1 To picAdvert.Width

picAdvert.Width = i
Next

crappy code I know - but should this work?

SImon