• Home
 · 
• Encryption
 · 
• hide desktop

hide desktop

hide desktop

Rate hide desktop

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Option Explicit

Private Sub Command1_Click()
'To Show Desktop
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 1
End Sub

Private Sub Command2_Click()
'To Hide Desktop
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub