event constructor;Long li_status i_PBbullzip = CREATE OLEObject li_status = i_PBbullzip.ConnectToNewObject(is_server) IF li_status < 0 THEN MessageBox("No Server", "Can't connect to " + is_server) END IF end event