EnableExplicit

Define EventID
Define Handle_IP1
Define Handle_IP2
Define Handle_IP3
Define Handle_IP4

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  IPAddressGadget(1,10,10,200,20)
  SetGadgetState(1,MakeIPAddress(192,168,0,1))
  
  Handle_IP4 = FindWindowEx_(GadgetID(1),0,"Edit",0)
  Handle_IP3 = FindWindowEx_(GadgetID(1),Handle_IP4,"Edit",0)
  Handle_IP2 = FindWindowEx_(GadgetID(1),Handle_IP3,"Edit",0)
  Handle_IP1 = FindWindowEx_(GadgetID(1),Handle_IP2,"Edit",0)
  
  EnableWindow_(Handle_IP1,0)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf