Sub デスクトップを表示する()
    
    Set PCシステム = CreateObject("Shell.Application")
    
    PCシステム.ToggleDesktop 'Winロゴ + D と同じ
    
End Sub