如何用vb6.0编程使所设置的背景图片能满铺整个屏幕大小？

Question

参考一下我以前写的代码，至于为什么一定要有一个picturebox,因为只有它有DC(除了窗体本身)Public Sub Paint()  '用来实现窗体图案的平铺，由此可以类推出拉伸，镜象等特效
Dim pich, picw As Integer
Dim i, j As Variant
Dim x As Long
form1.Picture1.Picture = LoadPicture("")
pich = form1.P2.ScaleHeight
picw = form1.P2.ScaleWidth
For i = 0 To frm1.Picture1.ScaleHeight / form1.P2.ScaleHeight
For j = 0 To frm1.Picture1.ScaleWidth / form1.P2.ScaleWidth
x = BitBlt(form1.Picture1.hDC, j * picw, i * pich, picw, pich, form1.P2.hDC, 0, 0, SRCCOPY)
Next
Next
End Sub