麻烦版主或高手指点指点
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const sTrayWindow = "Shell_TrayWnd"
Private Const sDesktopIcon = "ShellDll_DefView"
Private Const sProgman = "Progman"
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Dim wnd As Long, wnd1 As Long
Dim lbHide As Boolean
Private Sub Command1_Click()
    Dim i As Integer
    wnd1 = FindWindow(sTrayWindow, vbNullString)
   
    wnd = FindWindow(sProgman, vbNullString)
    wnd = FindWindowEx(wnd, 0, sDesktopIcon, vbNullString)
    If lbHide = False Then
        ShowWindow wnd, SW_HIDE
        ShowWindow wnd1, SW_HIDE
        lbHide = True
    Else
        ShowWindow wnd, SW_SHOW
        ShowWindow wnd1, SW_SHOW
        lbHide = False
    End If

End Sub

[[italic] 本帖最后由 ytsm0526 于 2007-12-22 10:18 编辑 [/italic]]

..................
修改注册表来隐藏桌面，I　服了 U

我就是想用VB还实现啊，你看看那错了

麻烦各位高手指点指点啊

谁帮我把这个修改成功我送谁QQ

送QQ有啥用?..
现在都什么年代了?..还送QQ?..
如果是5,6年前....

那没办法啊，只能那样了，我不会啊，也没有人帮我啊

呵呵，那些高手都跑那去了啊，就留下不会的了

也没见你说你的程序有什么问题啊

说是regcreatekey没有定义还有下面那个函数