addobject "MGCENet.IPAddress", "IPAddr", 10, 10, 140, 20
addobject "CommandButton", "GetAddr", 10, 40, 68, 20
addobject "CommandButton", "SetAddr", 82, 40, 68, 20

GetAddr.Caption = "Get Addr"
SetAddr.Caption = "Set Addr"

IPAddr.FontBold = TRUE
IPAddr.BackColor = ( 65536 * 255 ) + ( 256 * 255 )
IPAddr.ForeColor = 0
IPAddr.Value = "255.255.255.255"

sub GetAddr_Click
   MsgBox IPAddr.Value
end sub

sub SetAddr_Click
   IPAddr.Value = "192.168.0.1"
end sub