FANDOM


Wenn man ein beliebiges Bild in einen Icon (Symbol) konvertieren möchte muss benötigt man folgende Zeilen:

Public Function ConvertToIcon(ByVal image As Image) As Icon
  Dim bmp As New Bitmap(image.Width, image.Height)
  bmp = image
  Return Icon.FromHandle(bmp.GetHicon())
End Function

Ein Beispiel:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.Icon = ConvertToIcon(PictureBox1.Image)
   End Sub