 |
Para
poner una imagen de fondo en un formulario podemos usar el siguiente código:"
En
un fomulario ponemos un objeto PictureBox:
Private
Sub Form_Paint()
Dim
a As Integer
For
a = 0 To Form1.ScaleHeight Step Picture1.Height
For
b = 0 To Form1.ScaleWidth Step Picture1.Width
PaintPicture
Picture1, b , a, Picture1.Width, Picture1.Height
Next
Next
End
Sub |
|