If OpenWindow(0, 0, 0, 322, 70, "StringGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 8,  10, 306, 20, "12345678", #PB_String_Password)
  CheckBoxGadget(1, 10,  40, 250, 20, "Показать пароль")
  
  PassChar = SendMessage_(GadgetID(0), #EM_GETPASSWORDCHAR, 0, 0)
  
  Repeat 
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Gadget
      If EventGadget() = 1
        SendMessage_(GadgetID(0), #EM_SETPASSWORDCHAR, Bool(GetGadgetState(1)=0) * PassChar, 0)
        InvalidateRect_(GadgetID(0), 0, #False)
      EndIf
    EndIf
    
  Until Event = #PB_Event_CloseWindow
EndIf