只需要點擊 工程--引用--選中大漠.dll ---使用時
Private Sub Form_Load()
Dim a As New dmsoft
Debug.Print a.FindWindow("", "Windows 任務管理器")
End Sub