ImplementingtheIActiveDesktopinVB.docVIP

Implementing the IActiveDesktop in VB.NET ( Part 1 ) ive decided to post an example on Implementing the IActiveDesktop interface in , examples in c# / j# can be found on  HYPERLINK http://dynamic-sysop.co.nr \t _blank my personal website.heres the example ( part 1 ) ... VB.net: DllImport(OLE32.DLL) _ Public Shared Function CoCreateInstance( _ ByRef ClassGuid As Guid, _ ByVal pUnkOuter As IntPtr, _ ByVal dwClsContext As Integer, _ ByRef InterfaceGuid As Guid, _ ByRef Result As IActiveDesktop) As IntPtr End Function Private CLSID_ActiveDesktop As New GuidEF1F-11D0-9888-006097DEACF9) Private IID_IActiveDesktop As New Guid(F490EB00-1240-11D1-9888-006097DEACF9) Private Const CLSCTX_INPROC_SERVER As Integer = 1 Private ActiveDesktop As IActiveDesktop Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CoCreateInstance(CLSID_ActiveDesktop, _ IntPtr.Zero, CLSCTX_INPROC_SERVER, _ IID_IActiveDesktop, ActiveDesktop) End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If SUCCEEDED(ActiveDesktop) Then Marshal.ReleaseComObject(ActiveDesktop) End If End Sub Private Function SUCCEEDED(ByVal obj As Object) As Boolean /// checks to see if an object is created or Nothing If Not obj Is Nothing Then Return True Else Return False End If End Function Private Function makethumb() As Boolean Return False End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If SUCCEEDED(ActiveDesktop) Then Dim sBuilder As New StringBuilder(_win32.MAX_PATH) ActiveDesktop.GetWallpaper(sBuilder, sBuilder.Capacity, 0) Label1.Text = sB