妳可以把下面代碼的執行部分放到timer控件裏,然後妳就隨便做妳該做的事情就可以了,程序自動在後臺刷新桌面!!!
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Sub Command1_Click()
Dim Desktop As Long
'查找桌面的句柄:壹個語句搞定
Desktop = FindWindow("Progman", "Program Manager")
'向桌面模擬發送按鍵F5(刷新)
PostMessage Desktop, WM_KEYDOWN, vbKeyF5, 0
End Sub