[VB6]immagine di sfondo fu una MDI

[junx]

Ok. Questo codice ti consente di fare quello che tu hai chiesto.
Fammi sapere se hai problemi.

Option Explicit
Private Sub MDIForm_Activate()
    MDIForm_Resize
End Sub
Private Sub MDIForm_Load()
    picNascosta.Visible = False
    picNascosta.AutoRedraw = True
End Sub

Private Sub MDIForm_Resize()
    picNascosta.Move 0, 0, Width, Height
End Sub

Private Sub picnascosta_Resize()
Dim X As Single
Dim Y As Single
    Y = 0
    Do While Y <= picNascosta.ScaleHeight
        X = 0
        Do While X <= picNascosta.ScaleWidth
            picNascosta.PaintPicture picSfondo.Picture, X, Y, _
                picSfondo.ScaleWidth, picSfondo.ScaleHeight
            X = X + picSfondo.ScaleWidth
        Loop
        Y = Y + picSfondo.ScaleHeight
    Loop

    Picture = picNascosta.Image
End Sub