Attribute VB_Name = "modXP"

'本代碼歡迎讀者轉發及與我相互探討,但請保留此文字說明 2005/12/31
'作者:宋陳三 南京金肯學院數學教研室  作者主頁http://www.asanscape.com
'作者BLOG: http://blog.csdn.net/asanscape     QQ:6019187  Email:asangray@163.com

'本工程中的xp.res可以直接加入其他工程進行編譯以使其具備XP風格
'注意加入資源文件時要同時加入本模塊,  設置工程從Sub Main()啟動,否則無初始化過程
'InitCommonControls函數存在于comctl32.dll(版本5)中,不建議使用,而要使用InitCommonControlsEx

Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200

Public Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   ' Ensure CC available:
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex
   InitCommonControlsVB = (Err.Number = 0)
   On Error GoTo 0
End Function

Sub Main()
   InitCommonControlsVB
   frmSplash.Show
  
  delay 2
  Unload frmSplash
End Sub
Sub delay(ByVal n As Single)
    Dim tm1 As Single, tm2 As Single
    tm1 = Timer
    Do
        tm2 = Timer
        If tm2 < tm1 Then tm2 = tm2 + 86400
        If tm2 - tm1 > n Then Exit Do
        DoEvents
    Loop
End Sub