VB NET Convertire un file. Ico in file .Bmp (it-IT)

In questo esempio, utilizzando la classe bitmap inclusa nel namespace System.Drawing, viene convertito in un file con estensione .ico in un file .Bmp per visualizzarlo in una PictureBox.
Questo è necessario perché il formato .Ico non è supportato dal controllo PictureBox.

Public Class Form1
   Public Function FromIconToBitmap (ByVal icon As  Icon) As Bitmap
     Dim bmp As New Bitmap (icon.Width, icon.Height)
     Using gp As Graphics = Graphics.FromImage (bmp)
       gp.Clear (Color.Transparent)
       gp.DrawIcon (icon, New Rectangle (0, 0, icon.Width, icon.Height))
     End Using
     return bmp
   End Function
 

   Private Sub Button1_Click (sender As System.Object,
                             e As System.EventArgs) Handles Button1.Click
     Dim icon As Icon = My.Resources.Resources.Icon1
     PictureBox1.Image = FromIconToBitmap (icon)
    End Sub
End Class