[2005] I'm making a background changer

[kiwis]

The image is coming from my picture box but the iamges is bigger than my screen, this is my code how can i get it to fit the screen best?

 Dim fileName As String = "WallPaper"
        Dim imagePath As String = IO.Path.Combine(Environment.ExpandEnvironmentVariables("%windir%\Web\Wallpaper"), fileName)
        PictureBox1.Image.Save(imagePath, System.Drawing.Imaging.ImageFormat.Bmp)
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)

[sauronsmatrix]

not exactly sure what you want but you can use :

Screen.PrimaryScreen.Bounds

to get the bounds or

Screen.PrimaryScreen.Bounds.Width
Screen.PrimaryScreen.Bounds.Height

to get the X by Y

[.paul.]

you could stretch/shrink the image

Dim fileName As String = "WallPaper"
Dim imagePath As String = IO.Path.Combine(Environment.ExpandEnvironmentVariables("%windir%\Web\Wallpaper"), fileName)
Dim img As New Bitmap(PictureBox1.Image, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
img.Save(imagePath, System.Drawing.Imaging.ImageFormat.Bmp)
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)