這 是 TreeView Style設(shè) 置 問 題 ， 用 下 面 的 代 碼 就 可 以 解 決 問 題 ： 
     
    '程 序 定 義 
    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 
     
    '程 序 調(diào) 用 
     Dim l As Long 
     
     l = GetWindowLong(TreeView1.hwnd, GWL_STYLE) 
     l = l Or TVS_NOTOOLTIPS 
     Call SetWindowLong(TreeView1.hwnd, GWL_STYLE, l) 
<END>