Ventana activa

[Meg]

tengo una dudilla como podria averiguar el titulo de una ventana activa?? me refiero al titulo de una ventana externa al programa en visual basic.

Por ejemplo si tengo el bloc de notas abierto que me salga en un label o un textbox  (nombre.txt - Bloc de notas)

gracias y salu2

[NYlOn]

Este codigo cambia el titulo de la ventana por la ventana activa (se puede ver en la barra de tareas)

Código [Seleccionar] Expandir

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Timer1_Timer()
    Dim lnghWnd As Long, Texto As String
    lnghWnd = GetForegroundWindow
    Texto = String(255, Chr(0))
    GetWindowText GetForegroundWindow, Texto, 255
    Me.Caption = Texto
End Sub


El Timer tiene que tener un intervalo corto, con 100 andaria bien...

Saludos.-

[Meg]

Gracias Nylon el codigo me sirvio