codice:
Private Sub Form_Resize()
On Error Resume Next
Dim img As StdPicture
Set img = LoadPicture("C:\TuaCartella\TuaImmagine.jpg")
Me.AutoRedraw = True
Me.PaintPicture img, 0, 0, Me.ScaleWidth, Me.ScaleHeight
Set img = Nothing
End Sub
Boolean