Visual Basic

susan_151615 wrote:

but its not working

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _hW As Single = Me.PictureBox1.Image.Width
        Dim _hH As Single = Me.PictureBox1.Image.Height
        Dim ratio As Single = IIf(_hW >= _hH, _hW / _hH, _hH / _hW)
'resize image according to which is the highest ... Width or Height
        If (_hW > _hH) Then
            Me.PictureBox1.Image = ResizeImg(Me.PictureBox1.Image, New Size(Me.PictureBox1.Width, Me.PictureBox1.Width / ratio))
        Else
            Me.PictureBox1.Image = ResizeImg(Me.PictureBox1.Image, New Size(Me.PictureBox1.Height / ratio, Me.PictureBox1.Height))
        End If
    End Sub

    Public Function ResizeImg(ByVal img As Image, ByVal size As Size) As Image
        Dim bm As Bitmap = New Bitmap(img, Convert.ToUInt32(size.Width), Convert.ToUInt32(size.Height))
        Dim myNewImage As Graphics = Graphics.FromImage(bm)
        myNewImage.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
        Return bm
    End Function

sarfarazaliqureshi wrote:

Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)