Dim drawSlotImageStream As System.IO.Stream = Me.GetType( _
  ).Assembly.GetManifestResourceStream("Rechteck.DrawSlot.ico")
                Dim drawSlotIcon As Icon = New Icon(drawSlotImageStream, New _
                Size(16, 16))