Private Sub Form_Paint()
Dim X As Integer, Y As Integer
Dim ImgWidth As Integer
Dim ImgHeight As Integer
Dim FrmWidth As Integer
Dim FrmHeight As Integer

'использование Image1 в PaintPicture methods:
ImgWidth = Image1.Width
ImgHeight = Image1.Height
FrmWidth = frmTilling.Width
FrmHeight = frmTilling.Height

'залить целую форму (Метод 1)
For X = 0 To FrmWidth Step ImgWidth
For Y = 0 To FrmHeight Step ImgHeight
PaintPicture Image1, X, Y
Next Y
Next X

'залить левый край (Метод 2)
'For Y = 0 To FrmHeight Step ImgHeight
' PaintPicture Image1, 0, Y
'Next Y
End Sub
'Для того чтобы залить только левый край снимите комментарий с метода2 и поставьте на метод1.