• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Tile an image on a form

Tile an image on a form

Tile an image on a form

Rate Tile an image on a form

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'2) Set the forms AutoRedraw to False
'3) Place this code in the Form Paint Event

Dim intX As Integer
Dim intY As Integer

For intX = 0 To Me.Width Step Image1.Width
    For intY = 0 To Me.Height Step Image1.Height
        PaintPicture Image1, intX, intY
    Next intY
Next intX