
Case of 
	: (FORM Event:C1606.code=On Load:K2:1)
		
		$Err:=UDP_New(0; $udpID)
		Form:C1466.udpID:=$udpID
		
		Use (Storage:C1525)
			Storage:C1525.udp:=New shared object:C1526("is_contimnue"; True:C214)
		End use 
		Form:C1466.list:=New shared collection:C1527
		$ref_worker:=CALL WORKER:C1389("UDP RECEV TEST"; "UDP_Recever"; Current process:C322; Current form window:C827; Form:C1466.list; Form:C1466.udpID)
		
		
	: (FORM Event:C1606.code=On Unload:K2:2)
		
		Use (Storage:C1525.udp)
			Storage:C1525.udp.is_contimnue:=False:C215
		End use 
		KILL WORKER:C1390("UDP RECEV TEST")
		$Err:=UDP_Delete(Form:C1466.udpID)
		
	: (FORM Event:C1606.code=On Outside Call:K2:11)
		
		Use (Form:C1466.list)
			Form:C1466.list:=Form:C1466.list
		End use 
		
End case 
