Private Sub Form_Paint()
Me.PaintPicture Me.Picture,Form1.Width,Form1.Height
End Sub
Private Sub Form_Resize()
Me.PaintPicture Me.Picture,Form1.Height
End Sub
只第一个过程时，在标准窗体与最大化窗体变化时会只有部分背景出现，加上最后一个过程就完美了。
原文链接：https://www.f2er.com/vb/259064.html