[VB6] Membuat tampilan form menjadi XP Look

Mungkin disini ada yg belum mengetahui tentang XPLook, nah ini dia Screen Shot nya :

udah tw kan ?
pertama² download file berikut :
XPLook.RES

nah kalo sudah di download ini dia tutorialnya :
. Buka VB6
. buka Project > Add File > Pilih XPLook.RES

. kalo sudah kita buka Project > Add module > Open & Masukin Kode Berikut :

'---------------------------------------------------------------------------------------
' Credits by : UHD @ HNc
'---------------------------------------------------------------------------------------
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

. Sekarang buka kode di form dan masukin kode berikut :

Private Sub Form_Initialize()
    InitCommonControlsXP
End Sub

 . Selesai deh ..huft... lama juga yah...

nah, saya kasih keterangan, XPLook Berfungsi jika sudah di compile kalo belum yah.. masih standar..
kalau ada yg kurang komen aja..