Si ma facendo cosi' l'immagine non si adatta piu' allo sfondo dell'mdi

codice:
On Error Resume Next

If Not Exists Then
    Set tmpPic = Me.Controls.Add("VB.PictureBox", "tmp")
    Set bkpImg = Me.Picture
    Exists = True
End If

With tmpPic
    .Cls
    .BorderStyle = 0
    .AutoRedraw = True
    .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    .PaintPicture bkpImg, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    Me.Picture = LoadPicture(App.Path & "\sfondi\sfondo" & id_imagine_sfondo & ".jpg")
End With