codice:
    Private Sub dimensionaImg(ByVal dimensione As Integer)
        Dim fl As New IO.DirectoryInfo("C:\Users\Vero\Desktop\ProvaImg\")

        For Each f As IO.FileInfo In fl.GetFiles
            Dim immagine As New Bitmap(f.FullName)
            Dim gr As Graphics = Graphics.FromImage(immagine)

            Dim sfondo As New Bitmap(dimensione, dimensione)
            Dim gr1 As Graphics = Graphics.FromImage(sfondo)
            gr1.Clear(Color.Green)

            Dim x As Integer = (sfondo.Width - immagine.Width) / 2
            Dim y As Integer = (sfondo.Height - immagine.Height) / 2
            gr1.DrawImage(immagine, x, y)

            PictureBox1.Image = sfondo
        Next

    End Sub
Ho riadattato così il codice ma non va... :/ cioè nella picture mi fa vedere l'immagine croppata non la ridimensiona lasciando lo sfondo per lo "scarto" :/ ora provo a ragionarci ancora :P