EnableExplicit Define EventID If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) EditorGadget(1,10,10,WindowWidth(0)-20,WindowHeight(0)-20,0) SetGadgetText(1,"Zeile 1"+Chr(13)+"Zeile 2"+Chr(13)+"Zeile 3") MessageRequester("","Anzahl der Zeilen: "+Str(SendMessage_(GadgetID(1), #EM_GETLINECOUNT, 0, 0)),0) Repeat EventID=WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf