Frame images

[scooter21]

I have used the following code to fill the form with a gif image. Does anyone know how I can fill either the tool bar or frames (or both) with a gif?
Thanks,
Scott

Private Sub Form_Paint()
Dim X As Integer, Y As Integer
Dim ImgWidth As Integer
Dim ImgHeight As Integer
Dim FrmWidth As Integer
Dim FrmHeight As Integer

ImgWidth = imgBack.Width
ImgHeight = imgBack.Height
FrmWidth = Me.Width
FrmHeight = Me.Height

For X = 0 To FrmWidth Step ImgWidth
For Y = 0 To FrmHeight Step ImgHeight
PaintPicture imgBack, X, Y
Next Y
Next X
End Sub