'在Form的属性Picture里添加一张图片,加入以下代码:
Option Explicit
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
Private Sub Form_Paint()
Dim I As Long, J As Long, W As Long, H As Long
W = ScaleX(Me.Picture.Width, vbHimetric, vbPixels)
H = ScaleY(Me.Picture.Height, vbHimetric, vbPixels)
For I = 0 To Me.ScaleWidth / W + 1
For J = 0 To Me.ScaleHeight / H + 1
Me.PaintPicture Me.Picture, I * W, J * H
Next
Next
End Sub