Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ggetvi1r/modgen.bas

BASIC Source File | 1999-05-24 | 479 b | 15 lines

Attribute VB_Name = "modGen"
Public Sub TileImage(Canvas As Object, Image As PictureBox)
Dim nHC As Integer, nWC As Integer
On Error Resume Next
nHC = Canvas.Height \ Image.Height + 1
nWC = Canvas.Width \ Image.Width + 1
Dim m_intLoopH As Integer, m_intLoopW As Integer
For m_intLoopH = 1 To nHC
    For m_intLoopW = 1 To nWC
        Canvas.PaintPicture Image, m_intLoopW * Image.Width - Image.Width, m_intLoopH * Image.Height - Image.Height
    Next
Next
End Sub