[R] extracting P values from lm model

[Rosario Garcia Gil]

Hello

I am trying to get out of an lm model the fstatistics, however after I run the model I write 
> names(Model)

and the fstatistic does not appear only these.

names(Model)
 [1] "coefficients"  "residuals"     "effects"       "rank"          "fitted.values"
 [6] "assign"        "qr"            "df.residual"   "xlevels"       "call"         
[11] "terms"         "model"  

How could I extract the P values? I have run a cbind of 1800 response variables so is not easy to do it by hand.

Thanks in advance.
Rosario