Question

vb怎么做永远浮在桌面上的程序？

就是一直在桌面之上，其他应用之下，类似于360桌面那样的。

Answer 1

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
SetParent Me.HWnd, FindWindow(vbNullString, "Program Manager")
End Sub

很容易有木有，只用两个API函数就实现了。

追问

那么win8似乎不可以，窗体都不见了。