方法一：

Private Sub Form_Click()
Dim 高数量 As Long,宽数量 As Long
Dim X As Long,Y As Long
Picture2.BorderStyle = 0
Picture2.Picture = LoadPicture( "C:/1.BMP ")
Picture2.AutoSize = True
宽数量 = Int(Picture1.Width / Picture2.Width)
If 宽数量 * Picture2.Width < Picture1.Width Then
宽数量 = 宽数量 + 1
End If
高数量 = Picture1.Height / Picture2.Height
If 高数量 * Picture2.Height < Picture1.Height Then
高数量 = 高数量 + 1
End If

For Y = 0 To 高数量
For X = 0 To 宽数量
Picture1.PaintPicture Picture2.Picture,_
X * Picture2.Width,Y * Picture2.Height
Next X
Next Y
End Sub

方法二：

Option Explicit Private Declare Function StretchBlt Lib "gdi32 " (ByVal hdc As Long,ByVal X As Long,ByVal Y As Long,ByVal nWidth As Long,ByVal nHeight As Long,ByVal hSrcDC As Long,ByVal xSrc As Long,ByVal ySrc As Long,ByVal nSrcWidth As Long,ByVal nSrcHeight As Long,ByVal dwRop As Long) As Long Private Declare Function BitBlt Lib "gdi32 " (ByVal hDestDC As Long,ByVal dwRop As Long) As Long Private Const SRCCOPY = &HCC0020 Private Const SRCAND = &H8800C6 Private Const SRCERASE = &H440328 Private Const SRCINVERT = &H660046 Private Const SRCPAINT = &HEE0086 Private Sub Form_Paint() Dim W As Single,H1 As Single,W1 As Single,H As Single Dim pic As Picture '先清空窗体上原有图片背景 Cls '如果出现异常错误，转向错误处理语句 On Error GoTo ErrorPic picFrom.AutoRedraw = True picFrom.AutoSize = True picFrom.Visible = False picFrom.Picture = LoadPicture( "E:/背景/素材/bkic007.gif ") '下面将图片排满整个窗体 W = 0 H1 = picFrom.ScaleHeight / 15 W1 = picFrom.ScaleWidth / 15 While W < ScaleWidth H = 0 While H < ScaleHeight ' Me.hdc,W,H,picFrom.Width,picFrom.Height,picFrom.hdc,SRCCOPY BitBlt Me.hdc,SRCCOPY H = H + H1 Wend W = W + W1 Wend Exit Sub ErrorPic: MsgBox Err.Description,vbCritical End Sub picFrom是一个pictureBox控件