(VB)如何并排图形，以填满Form

如何并排图形，以填满Form


Private Sub Form_Paint()
Dim i As Long, j As Long, x As Single, y As Single
x = ScaleX(Picture.Width)
y = ScaleX(Picture.Height)
For i = 0 To ScaleWidth \ x
    For j = 0 To ScaleHeight \ y
       PaintPicture Picture, i * x, j * y
    Next
Next
End Sub