Sub SetFPS(fps_val)