Imports Microsoft.WindowsAPICodePack.Shell
 
 
Public Class Form1
 
	Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
		Dim officeFile As ShellFile = ShellFile.FromFilePath("C:\Temp\Mappe1.xlsx")
		Dim shellThumb As Bitmap = officeFile.Thumbnail.ExtraLargeBitmap
 
		PictureBox1.Image = officeFile.Thumbnail.LargeBitmap
	End Sub
End Class