Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const WM_PAINT = &HF Private Sub Command1_Click() 'hWndはデスクトップウィンドウのHWND SendMessage hwnd, WM_PAINT, 0&, 0& End Sub