'*******************************************
' Tile Image - by DarKPaiN
'
'w w w . P r o g e n i c . c o m
'*******************************************

'Form Paint event

On Error Resume Next
Dim X3 As Integer
Dim Y3 As Integer
For X3 = 0 To Me.Width Step Tile.Width
    For Y3 = 0 To Me.Height Step Tile.Height
        PaintPicture Tile, X3, Y3
    Next Y3
Next X3