Как изменить тему 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

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

Answer 1

Отметьте эту ссылку , может быть, это может быть полезно для вас ...