Dim drawSlotImageStream As System.IO.Stream = Me.GetType( _
  ).Assembly.GetManifestResourceStream("Rechteck.DrawSlot.ico")
   if drawSlotImageStream isnot Nothing then 
       Dim drawSlotIcon As Icon = New Icon(drawSlotImageStream, New _
       Size(16, 16))
   else
       '....
   End if