Ctrl-C simulieren

[Bitzel]

Hallo,

ich möchte gerne aus einem fremden, geöffneten Programm
den markierten Text einer dort aktivierten Textbox auf das Clipboard holen
und dann in meinem Programm in eine Textbox geben.

Ich habe es mit Tastatursimulation versucht, das klappt aber nur so irgendwie.

Try
AppActivate("Fremdprogramm_Name")
wait_a_little(zeit) ' (meine Sub)
My.Computer.Keyboard.SendKeys(Chr(24))
My.Computer.Keyboard.SendKeys(Chr(22))
My.Computer.Keyboard.SendKeys(Chr(Keys.Tab))
Catch
End Try

1.
ich schaffe es nicht Ctrl_C zu simulieren mit (Chr(3)),
Chr(24):Ctrl_X und Chr(22):Ctrl_V hingegen funktioniert, der Text landet auf dem Clipboard.
und wird auch wieder zurück geschrieben in die fremde Textbox.

2.
mit der folgenden Zeile:

TextBox1.Text = CStr(My.Computer.Clipboard.GetText)

wird nun aber nicht der Text vom Clipboard in meine Box geschrieben sondern ein
Text der vorher auf dem Clipboard war.

Hat vielleicht jemand eine Idee dazu?
Gruss,
Hans_Christian (fast noch Anfänger)

[Bitzel]

Hat sich erledigt, Danke!
Hans-Christian