Private Sub Form_Load()
With Picture1 .AutoSize = True .BorderStyle = 0 .Visible = False End With End Sub Private Sub Form_Paint() Dim i As Long, j As Long With Picture1 For i = 0 To Me.ScaleWidth Step .Width For j = 0 To Me.ScaleHeight Step .Height PaintPicture .Picture, i, j Next j Next i End With End Sub Private Sub Form_Resize() Me.Refresh End Sub Adding this code to a form causes it to tile the image stored in Picture1 across the entire form whenever the form requires a refresh: |