کمک در مورد یک تابع

[moos111]

دوستان سلام
می خواستم بدونم این تابع چیه و چکار می کنه (در لود فرم قرار می گیرد)؟





Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean


Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type



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

[M.T.P]

دوستان سلام
می خواستم بدونم این تابع چیه و چکار می کنه (در لود فرم قرار می گیرد)؟





Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean


Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type



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

اعمال تم ویندوز به برنامه که نمونش تو آدرس زیر هست برنامه Baloon دانلود کن ببینش:قلب:
http://barnamenevis.org/forum/showthread.php?t=81542&page=37