• Home
 · 
• Graphics
 · 
• Tile Image on the form

Tile Image on the form

Tile Image on the form

Rate Tile Image on the form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'nWidth and nheight are the size of one tile
Function TileImage(frm as form,nWidth as integer, nHeight as integer)
  frm.AutoRedraw=True
  for x=0 to frm.ScaleWidth step nWidth
    for y=0 to frm.ScaleHeight Step nHeight
     frm.PaintPicture frm.Picture,x,y,nWidth,nHeight

    Next
  Next
End Function
'Call it like
Sub Form_Load()
 TileImage me,1000,700
End Sub
'Remember me as 
'[email protected]