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 SubBoolean
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 SubBoolean