如何在Picture控件改变大小时实现背景重画？

Question

有一个可调节大小的Picture控件Picx，用PaintPicture方法画上了背景图片(Picture1中所加载的小图片)，如：
Dim i As Integer
Dim j As Integer
For j = 0 To Int(Picx.Height / Picture1.Height)
For i = 0 To Int(Picx.Width / Picture1.Width)
Picx.PaintPicture Picture1.Picture, Picture1.Width * i, Picture1.Height * j
Next i
Next j如何能达到调节Picx大小时自动重新画满背景

Answer 1

处理resize事件即可：
Private Sub Picx_Resize()
Dim i As Integer
Dim j As Integer
For j = 0 To Int(Picx.Height / Picture1.Height)
For i = 0 To Int(Picx.Width / Picture1.Width)
Picx.PaintPicture Picture1.Picture, Picture1.Width * i, Picture1.Height * j
Next i
Next j
End Sub