Õâ ÊÇ TreeView StyleÉè ÖÃ ÎÊ Ìâ £¬ ÓÃ ÏÂ Ãæ µÄ ´ú Âë ¾Í ¿É ÒÔ ½â ¾ö ÎÊ Ìâ £º 
     
    '³Ì Ðò ¶¨ Òå 
    Const TVS_NOTOOLTIPS = &H80 
    Const TVS_INFOTIP = &H400 
    Const GWL_EXSTYLE = (-20) 
    Const GWL_STYLE = (-16) 
     
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
     (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
     (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) _ 
     As Long 
     
    '³Ì Ðò µ÷ ÓÃ 
     Dim l As Long 
     
     l = GetWindowLong(TreeView1.hwnd, GWL_STYLE) 
     l = l Or TVS_NOTOOLTIPS 
     Call SetWindowLong(TreeView1.hwnd, GWL_STYLE, l) 
<END>     
    