:D
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_EventGadget
Select EventGadgetID()
Case #cmdOK
MessageRequester(GetGadgetText(#txtEingabe),
GetGadgetText(#txtEingabe))
EndSelect
EndSelect
Until Event=#PB_EventCloseWindow
ok - danke :> nur ehrm wie kriege ich denn gehandelt - dass ...