Как сделать программно из BMP (JPG, PNG) - ICO

1)
        Dim dr = OpenFileDialog1.ShowDialog()
        If dr = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        Dim tmpbmp As Bitmap = Image.FromFile(OpenFileDialog1.FileName)
        Dim tmpbmp_ As New Bitmap(tmpbmp.Width, tmpbmp.Height)
        Dim gr As Graphics = Graphics.FromImage(tmpbmp_)
        Dim ic As Icon = Icon.FromHandle(tmpbmp.GetHicon)
        gr.DrawIcon(ic, 0, 0)
        tmpbmp_.Save("C:\ewq2.ico", Imaging.ImageFormat.Icon)
        gr.Close()
        tmpbmp_.Dispose
        tmpbmp.Dispose
        
        
        2)
        Dim dr = OpenFileDialog1.ShowDialog()
        If dr = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        Dim tmpbmp As Bitmap = Image.FromFile(OpenFileDialog1.FileName)
        Dim tmpbmp_ As New Bitmap(tmpbmp.Width, tmpbmp.Height)
        Dim gr As Graphics = Graphics.FromImage(tmpbmp_)
        Dim ic As Icon = Icon.FromHandle(tmpbmp.GetHicon)
        gr.DrawIconUnstretched(ic, New Rectangle(0, 0, tmpbmp.Width, tmpbmp.Height))
        tmpbmp_.Save("C:\ewq2.ico", Imaging.ImageFormat.Icon)
        gr.Close()
        tmpbmp_.Dispose
        tmpbmp.Dispose
        
        
        3)
        Dim dr = OpenFileDialog1.ShowDialog()
        If dr = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        Dim tmpbmp As Bitmap = Image.FromFile(OpenFileDialog1.FileName)
        Dim tmpbmp_ As New Bitmap(tmpbmp.Width, tmpbmp.Height)
        Dim gr As Graphics = Graphics.FromImage(tmpbmp_)
        gr.DrawImage(tmpbmp, 0, 0)
        tmpbmp_.Save("C:\ewq2.ico", Imaging.ImageFormat.Icon)
        gr.Close()
        tmpbmp_.Dispose
        tmpbmp.Dispose
        
        
        
        4) Да и просто "тупо так"
    Dim b As Bitmap = Image.FromFile("D:\РАБОЧИЕ_ФАЙЛЫ_ГИДРОРЕЗА\Гидрорез\фото\2_big.jpg")
    b.Save("C:\ewq.ico", Imaging.ImageFormat.Icon)
    b.Dispose()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        foD.Filter = "Image Files (*.bmp; *.jpg; *.gif; *.tiff; *.png) | *.bmp;*.jpg;*.gif;*.tiff;*.png"
        foD.ShowDialog()
        Try
            pctSImg.Image = Image.FromFile(foD.FileName)
        Catch ex As Exception
            MessageBox.Show("Please check that you have entered correct filename. If filename is correct the image file might be   corrupt...", "File cannot be loaded", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim img As Bitmap = pctSImg.Image
        img.MakeTransparent(img.GetPixel(0, 0))
        pctDIcn.Image = img
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        fsD.Filter = "Icon (*.ico)|*.ico"
        fsD.ShowDialog()
        Dim img As Bitmap = pctDIcn.Image
        Dim fs As New IO.FileStream(fsD.FileName, IO.FileMode.Create)
        Dim hIcon As IntPtr = img.GetHicon()
        Dim icn As Icon = Icon.FromHandle(hIcon)
        icn.Save(fs)
        fs.Flush()
        icn.Dispose() : fs.Close() : fs = Nothing
        MessageBox.Show("Icon saved successfully", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear