Private Sub Treeview_DblClick()
 
    Dim oItem As ListItem
    Dim P As POINTAPI
 
    'aktuelle Mausposition
    GetCursorPos P
    ScreenToClient Treeview.hwnd, P
 
    'Eintrag ermitteln
    Set oItem = Treeview.HitTest( _
    P.x * Screen.TwipsPerPixelX, _          'HIER wird TwipsPerPixelX markiert
    P.y * Screen.TwipsPerPixelY)
'...