CodeItBetter Programming Another VB Programming Blog

'Controls - How to insert a tiled picture inside a frame
'Place a Picturebox on that frame (named Picture1) and another Picturebox 
'(named picBuffer). Change picBuffer Picture property to a desired picture 
'and AutoSize property to TRUE.

Put this on Picture1_Paint event:
 
Private Sub Picture1_Paint()
    Dim X As Integer, Y As Integer
    Dim iImgWidth As Integer
    Dim iImgHeight As Integer
    Dim iPicWidth As Integer
    Dim iPicHeight As Integer
 
    picBuffer.Visible = False
    ScaleMode = vbPixels
 
    iImgWidth = picBuffer.Width
    iImgHeight = picBuffer.Height
    iPicWidth = Picture1.Width
    iPicHeight = Picture1.Height
 
    For X = 0 To iPicWidth Step iImgWidth
        For Y = 0 To iPicHeight Step iImgHeight
            Picture1.PaintPicture picBuffer.Picture, X, Y
        Next Y
    Next X
End Sub