Tile an image Accross the form

'1) Place an image control on a form and give it a picture '2) Set the forms AutoRedraw to False '3) Place this code in the Form Paint Event Dim gs As Integer Dim gf As Integer For gs = 0 To Me.Width Step Image1.Width For gf = 0 To Me.Height Step Image1.Height PaintPicture Image1, gs, gf Next gf Next gs