If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) StringGadget(1,10,10,100,20,"Passwort",0) ButtonGadget(2,10,40,100,20,"Ändern",0) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 2 If PState=0 SendMessage_(GadgetID(1),#EM_SETPASSWORDCHAR,1,0) SetActiveGadget(1) PState=1 Else SendMessage_(GadgetID(1),#EM_SETPASSWORDCHAR,0,0) SetActiveGadget(1) PState=0 EndIf EndSelect EndIf If EventID=#PB_Event_CloseWindow Quit=1 EndIf Until Quit=1 EndIf