Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Гоблин
Все!!! Сработал код кота rkot_k_k

Private Sub TreeView0_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
If Button And acRightButton Then
bRightMouseDown = True
Else
bRightMouseDown = False
End If
End Sub

Private Sub TreeView0_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
bRightMouseDown = False
End Sub