modstartup.bas

来自「remote assistence」· BAS 代码 · 共 24 行

Attribute VB_Name = "ModStartUp"
Option Explicit

Public Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type

Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200

Public Sub Main()
On Error Resume Next
Dim ticcRet As tagInitCommonControlsEx
With ticcRet
    .lngSize = LenB(ticcRet)
    .lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx ticcRet
On Error GoTo 0
frmMain.Show
End Sub