как изменить WindowXP тему с помощью vb.net2005

Question

Я попытался следующий код, но не имеет никакого эффекта:

Imports system.Runtime.InteropServices 

<DllImport("UxTheme.DLL", BestFitMapping:=False, CallingConvention:=CallingConvention.Winapi, CharSet:=CharSet.Unicode, EntryPoint:="#65")> _ 
    Shared Function SetSystemVisualStyle(ByVal pszFilename As String, ByVal pszColor As String, ByVal pszSize As String, ByVal dwReserved As Integer) As Integer 
    End Function 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     'This code will set Window Themes 
     SetSystemVisualStyle("C:\WINDOWS\Resources\Themes\HmmXP_2_0_1\HmmXP\HmmXP.msstyles", "NormalColor", "NormalSize", 0) 
    End Sub 

Может кто-нибудь плз помочь?

Answer 1

Проверить это link, может быть, что может быть полезным для вас ...