Private Sub Form_Initialize()
InitCommonControlsXP
End Sub
2.Buatlah modul dengan nama modXpLook lalu tulis
'---------------------------------------------------------------------------------------
' Module : mComCtrls
' DateTime : 22/11/2003 ddmmyy 21:12
' Author : Lee Hughes lphughes@btopenworld.com
' Purpose : Initiate XP common controls
' Notes : CALL InitCommonControlsXP before any
' : VB commands or exe will crash
'---------------------------------------------------------------------------------------
Option Explicit
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 InitCommonControlsXP() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = Len(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsXP = CBool(Err = 0)
End Function
3.Coba lagi atau cari info dari blog lain,he3333X...................
