'Beispiel : Aus einem offenen IE die URL und die Titelzeile auslesen.
'Hinweis  : Zum Testen ist es erforderlich ein IE Fenster zu oeffnen.
'           Ist kein IE Fenster offen wird der Run-time Error '282'
'           No foreign application responded To a DDE initiate
'           ausgelöst.
'
Private Sub Command1_Click()
    With Text1
        .LinkTopic = "IExplore| www_GetWindowInfo"
        .LinkItem = &HFFFFFFFF
        .LinkMode = 2
        .LinkRequest
    End With
End Sub