XP стиль и его использование в приложении

Declare Sub InitCommonControls Lib 'comctl32.dll' ()
 
Private Sub Form_Load()
    Call InitCommonControls
    ' ...
End Sub

Declare Function ActivateWindowTheme Lib 'uxtheme' _
    Alias 'SetWindowTheme' ( _
    ByVal hWnd As Long, _
    Optional ByVal pszSubAppName As Long = 0, _
    Optional ByVal pszSubIdList As Long = 0) As Long

Declare Function DeactivateWindowTheme Lib 'uxtheme' _
         Alias 'SetWindowTheme' ( _ 
     ByVal hWnd As Long, _ 
     Optional ByRef pszSubAppName As String = ' ', _ 
     Optional ByRef pszSubIdList As String = ' ') As Long

Private Sub RecursivelyFormatForWinXP(control As Control)
   Dim x As Integer
   For x = 0 To control.Controls.Count - 1
      ' If the control derives from ButtonBase, 
      ' set its FlatStyle property to FlatStyle.System.
      If control.Controls(x).GetType().BaseType Is _
GetType(ButtonBase) Then
         CType(control.Controls(x), ButtonBase).FlatStyle = _
FlatStyle.System
      End If
      
      ' If the control holds other controls, iterate through them also.
      If control.Controls.Count > 0 Then
         RecursivelyFormatForWinXP(control.Controls(x))
      End If
   Next x
End Sub

Private Sub Form1_Load(sender As Object, e As System.EventArgs)
   ' Makes sure Windows XP is running and
   ' a .manifest file exists for the EXE.
   If Environment.OSVersion.Version.Major > 4 And _
Environment.OSVersion.Version.Minor > 0 And _
System.IO.File.Exists((Application.ExecutablePath + '.manifest')) Then
      ' Iterate through the controls.
      Dim x As Integer
      For x = 0 To (Me.Controls.Count) - 1
         ' If the control derives from ButtonBase,
         ' set its FlatStyle property to FlatStyle.System.
         If Me.Controls(x).GetType().BaseType Is _
GetType(ButtonBase) Then
            CType(Me.Controls(x), ButtonBase).FlatStyle = _
FlatStyle.System
         End If
         RecursivelyFormatForWinXP(Me.Controls(x))
      Next x
   End If
End Sub