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:
Private Sub Form_Load() With Picture1 .AutoSize = True .BorderStyle = 0 .Visible = False End WithEnd SubPrivate 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 WithEnd SubPrivate Sub Form_Resize() Me.RefreshEnd Sub