Private Declare Function SetWindowTheme Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As LongPrivate Sub RemoveThemeW(ByVal hwnd As Long) On Error Resume Next Dim lR As Long lR = SetWindowTheme(hwnd, StrPtr(" "), StrPtr(" ")) On Error GoTo 0 End Sub调用:RemoveThemeW(me.hwnd)
On Error Resume Next
Dim lR As Long
lR = SetWindowTheme(hwnd, StrPtr(" "), StrPtr(" "))
On Error GoTo 0
End Sub调用:RemoveThemeW(me.hwnd)