Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'ส่งค่าของ Handle โปรแกรมที่ต้องการออกมาให้ แล้วแต่ว่าอยากเอาไปใช้งานอะไร อ่านที่API32 เอาเองนะ WinWnd = FindWindow(vbNullString, "Notepad")