لإخفاء وإظهار الرموز على سطح المكتب

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
'áÅÎÝÇÁ ÇáÃíÞæäÇÊ Úáì ÓØÍ ÇáãßÊÈ
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub

Private Sub Command2_Click()
'áÅÙåÇÑ ÇáÃíÞæäÇÊ Úáì ÓØÍ ÇáãßÊÈ
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
End Sub