You can Form
Place a PictureBox
, Possibly Visible
The property is set to False
AutoSize
True
. Picturebox
Picture
The property is set to the pictures you need. Then in Form_Paint
Enter the following code in the event:
Private sub form_paint ()
DIM WID AS SINGLE
DIM HGT AS Single
DIM X as Single
DIM Y As Single
WID = Picture1.scaleWidth
HGT = Picture1.scaleHeight
Y = 0
Do While Y
X = 0
Do While x
PaintPicture Picture1.Picture, _
X, Y, WID, HGT
X = x wid
Loop
Y = y hgt
Loop
End Sub
