Imports System.Drawing
Class MainWindow
 
Private Sub MainWindow_Loaded(sender As Object, e As _
  System.Windows.RoutedEventArgs) Handles Me.Loaded
   Using ms As New IO.MemoryStream
      Dim ic As Icon = My.Resources.Lupe 'Lupe.ico
      ic.Save(ms)
      Me.Icon = System.Windows.Media.Imaging.BitmapFrame.Create(ms)
   End Using
End Sub
End Class