＋设为首页 ＋添加到收藏夹
经常有情况就是经过背景重绘以后我们把窗口移动背景并不能刷新，但是最小化再还原一下就可以刷新了。
请问高手，要怎么样才能做到窗口移动的时候也能够刷新啊
我试过这个方法了，把Form的AutoRedraw属性设置成true而且代码里面也有设置，但是就是不行啊
Option Explicit
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private hBitmap As Long
Private Sub Form_Load()
Me.AutoRedraw = True
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hBitmap
Set Image1.Picture = LoadPicture("e:\test\5.gif") 注释：请自行找一个背景透明的图
Me.Refresh
End Sub
