Formulario (Contiene un TextBox y un ControlButton)

Option Explicit


'Mostrar el título de la ventana activa


Dim Handle As Long      'Manejador de la ventana activa
Dim Longitud As Long    'Longitud del título de la ventana activa
Dim Texto As String     'Buffer para el texto de la barra de título
Dim Retorno As Long     'Valor de retorno

Private Sub Form_Load()
    Handle = GetForegroundWindow()     'Devuelve el manejador de la ventana activa
    Longitud = GetWindowTextLength(Handle) + 1    'Longitud del título de la ventana
    Texto = Space(Longitud)     'Almacena espacio en el buffer para recibir el texto
    Retorno = GetWindowText(Handle, Texto, Longitud)     'Obtiene el título
    Texto = Left(Texto, Longitud - 1)     'Borra el carácter nulo al final del texto
    Text1.Text = Texto
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub
		

Modulo (Implementado solo por claridad, podría ir en el formulario)

Option Explicit


Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowTextLength Lib "user32" _
            Alias "GetWindowTextLengthA" _
           (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" _
            Alias "GetWindowTextA" _
           (ByVal hwnd As Long, _
            ByVal lpString As String, _
            ByVal cch As Long) As Long