www.pudn.com > QQ2009.rar > cSkinner.cls, change:2009-11-15,size:599b


VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "cSkinner" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = False 
 
Option Explicit 
 
Public Function AttachSkin(ByVal hWnd As Long) As Long 
    AttachSkin = Attach(hWnd) 
End Function 
 
Public Function DetachSkin(ByVal hWnd As Long) As Long 
    DetachSkin = Detach(hWnd) 
End Function