' Variante 1 mit Pfadangabe:
   Dim ico As New Icon("F:\transfer\projekte\SD.NET\SD.NET\Icons\1.ico")
   Me.Icon = ico
 
   ' Variante 2 mit einer ImageList, dieses füllst du nach belieben mit 
   ' verschiedenen Icons:
    Dim ico As Icon
    Dim idx As Integer  = 1 ' Index des Icons
    ico = ico.FromHandle(DirectCast(Me.ImageList1.Images(idx ), _
      Bitmap).GetHicon)
    Me.Icon = ico
 
    ' Icon auch im Systray:   
    Dim ni As New NotifyIcon
    ni.Visible = True
    ni.Icon = Me.Icon