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