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
    '初始化
    ImgWidth = Image1.Width
    ImgHeight = Image1.Height
    FrmWidth = Me.Width
    FrmHeight = Me.Height
    '开始平铺
    For X = 0 To FrmWidth Step ImgWidth
        For Y = 0 To FrmHeight Step ImgHeight
            PaintPicture Image1, X, Y
        Next Y
    Next X

End Sub