Function GetThumbnail() As System.Object

System.object GetThumbnail()

System.Object^ GetThumbnail(); 

Return Value

'This code snippet demonstrates how to convert the IPicture object returned by this method to a usable bitmap.

VB.NET:

Imports stdole
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Module Module1
 
    Sub Main()

       ...

       Dim objBitMap As Object = aFile.GetThumbnail
       Dim imgPreview As System.Drawing.Image = PictureDispConverter.Convert(objBitMap)
       imgPreview.Save(sExtractDir + sFilename + ".bmp", Drawing.Imaging.ImageFormat.Bmp)
       imgPreview.Dispose()
 
    End Sub
 
End Module
 
 
'Class1 
Public Class PictureDispConverter
 
    Inherits System.Windows.Forms.AxHost
 
    Public Sub New()
        MyBase.New("GUID_format5_value")
    End Sub
 
    Public Shared Function Convert(ByVal objIDispImage As Object) As System.Drawing.Image
        Dim objPicture As System.Drawing.Image
        objPicture = CType(System.Windows.Forms.AxHost.GetPictureFromIPicture(objIDispImage), System.Drawing.Image)
        Return objPicture
    End Function
 
End Class