Attribute VB_Name = "mod_TileBackground"
Global filename$, cfilename$
Sub TileBkgd(bkgdtiler As Form, bkgdfile As String)
    
    If bkgdfile = "" Then Exit Sub
    Dim ScWidth%, ScHeight%
    
    ScWidth% = Screen.Width / Screen.TwipsPerPixelX
    ScHeight% = Screen.Height / Screen.TwipsPerPixelY

    Load bkgdtiler
    bkgdtiler.Height = Screen.Height
    bkgdtiler.Width = Screen.Width
    bkgdtiler.ScaleMode = 3
    
    bkgdtiler!Picture1.Top = 0
    bkgdtiler!Picture1.Left = 0

    bkgdtiler!Picture1.Picture = LoadPicture(bkgdfile)
    bkgdtiler!Picture1.ScaleMode = 3
    For n% = 0 To ScHeight% Step bkgdtiler!Picture1.ScaleHeight
        For o% = 0 To ScWidth% Step bkgdtiler!Picture1.ScaleWidth
            bkgdtiler.PaintPicture bkgdtiler!Picture1.Picture, o%, n%
        Next o%
    Next n%
    
    bkgdtiler.Picture = bkgdtiler.Image
    Unload bkgdtiler

End Sub