Private Sub PicResize(ByVal sender As System.Object)
        sender.BringToFront()
        sender.SizeMode = PictureBoxSizeMode.StretchImage
        If sender.Image.Width > sender.Image.Height Then
            If sender.Image.Width >= 350 Then
                sender.Width = 350
                sender.Height = sender.Image.Height / (sender.Image.Width / sender.Width)
            Else
                sender.Height = sender.Image.Height
                sender.Width = sender.Image.Width
            End If
        ElseIf sender.Image.Height > sender.Image.Width Then
            If sender.Image.Height >= 450 Then
                sender.Height = 450
                sender.Width = sender.Image.Width / (sender.Image.Height / sender.Height)
            Else
                sender.Height = sender.Image.Height
                sender.Width = sender.Image.Width

            End If
        Else
            If sender.Image.Width >= 300 Then
                sender.Height = 300
                sender.Width = sender.Image.Width / (sender.Image.Height / sender.Height)
            Else
                sender.Height = sender.Image.Height
                sender.Width = sender.Image.Width
            End If
        End If

    End Sub