Private Declare Function SetWindowTheme Lib "uxtheme" (ByVal hWnd As Long, _
  ByVal pszSubAppName As String, ByVal pszSubIdList As String) As Long
 
Private Sub SetXPStyle(Control As Control, Optional Value As Boolean = True)
 Dim Param As String
 If Value = True Then Param = vbNullString Else Param = " "
 SetWindowTheme Control.hWnd, Param, Param
End Sub