【開源項目】花密（Flower Password）VB版之XP樣式模塊

'*****************************************************************
' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.
'      Author : xLsDg @ Xiao Lu Software Development Group
'        Blog : http://hi.baidu.com/xlsdg
'          QQ : 4 4 7 4 0 5 7 4 0
'     Version : 1 . 0 . 0 . 0
'        Date : 2 0 1 2 / 0 4 / 0 7
' Description :
'     History :
'*****************************************************************
Option Explicit

Private Declare Function InitCommonControlsEx _
                Lib "Comctl32.dll" (Iccex As TagInitCommonControlsEx) As Boolean

Private Type TagInitCommonControlsEx

    LngSize As Long
    LngICC As Long

End Type

Private Const ICC_USEREX_CLASSES As Long = &H200

Public Function InitCommonControlsVB() As Boolean

    On Error Resume Next

    Dim Iccex As TagInitCommonControlsEx

    With Iccex
        .LngSize = LenB(Iccex)
        .LngICC = ICC_USEREX_CLASSES

    End With

    InitCommonControlsEx Iccex
    InitCommonControlsVB = (Err.Number = 0)

End Function