Update Control.fs