Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Una de las API s que podés utilizar el FindWindows
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click() Dim WinWnd As Long Shell "Notepad.exe" WinWnd = FindWindow(vbNullString, "Sin título - Bloc de notas") MsgBox "Este es el handle del Block de notas : " & WinWnd End Sub