If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(1,10,10,400,200,0)
  ButtonGadget(2,10,220,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