Hsieh

¦^´_ 1# asoonla

¸Õ¸Õ

1. Public Declare Function SetWindowPos Lib "user32" _
   
2. (ByVal hwnd As Long, ByVal hwndinsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
   
3. Sub nn()
   
4. Application.OnTime Now + TimeValue("00:00:30"), "ex"
   
5. End Sub
   
6. 
   
7. Sub ex()
   
8. With ThisWorkbook.Application
   
9. hw = .hwnd
   
10. SetWindowPos hw, -1, 0, 0, 0, 0, 3
    
11. .DisplayFullScreen = True
    
12. End With
    
13. End Sub

½Æ»s¥N½X