问：将程序的父窗口设置为桌面，如何在ALT+TAB中切换到自己？

Question

Dim hMenu As Long
        hMenu = FindWindow("Progman", "Program Manager")   ' 获得窗口句柄
     SetParent Me.hWnd, hMenu    '把程序放置于桌面上程序这样运行后，父窗口就是系统桌面啦。问题是，这样操作以后，ALT+TAB的切换中就没有我的程序啦，请教各位大侠，如何两者兼得！解决后百分送上！

Answer 1

Private Sub Form_Load()
     hMenu = FindWindow("Progman", "Program Manager")   ' 获得窗口句柄
     SetParent hMenu, Me.hwnd
End Sub

Answer 2

把程序放置于桌面上用这个试试
Private Sub Form_Load()
     hMenu = FindWindow("Progman", "Program Manager")   ' 获得窗口句柄
     SetWindowPos hMenu HWND_NOTOPMOST
End Sub

Answer 3

如果ALTTAB不能切换出系统桌面那么当然也不会弄出从属于该桌面的子程序（窗体）了。