EnableExplicit

Define EventID
Define Handle_IP1
Define Handle_IP2
Define Handle_IP3
Define Handle_IP4

LoadFont(1,"Arial Black",8,0)
LoadFont(2,"Terminal",10,0)
LoadFont(3,"Courier",12,0)
LoadFont(4,"System",14,0)

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  IPAddressGadget(1,10,10,200,30)
  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)
  
  SendMessage_(Handle_IP1, #WM_SETFONT, FontID(1), 1)
  SendMessage_(Handle_IP2, #WM_SETFONT, FontID(2), 1)
  SendMessage_(Handle_IP3, #WM_SETFONT, FontID(3), 1)
  SendMessage_(Handle_IP4, #WM_SETFONT, FontID(4), 1)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf