Sub ButtonClick ' Auslesen per Button
If Controls.LastClickedButton = Button Then
TBText = Controls.GetTextBoxText(TBoxName)
TextWindow.WriteLine(TBText)
EndIf
EndSub
' -----------------------------------------------------------
' -----------------------------------------------------------
' ' Alternativ oder zum Testen einfach dazu aktivieren, also das nächste ' weg
'Controls.TextTyped = OnTextInput
Sub OnTextInput ' Auslesen aus der Textbox direkt
If Controls.LastTypedTextBox = TBoxName Then
TBText = Controls.GetTextBoxText(TBoxName)
TextWindow.WriteLine(TBText)
EndIf
EndSub