Private tvw As TreeView

Private Sub Form_Load()
    Set tvw = TreeView1
End Sub

Private Sub TreeView1_DblClick()
    If Not tvw.SelectedItem Is Nothing Then
        MsgBox "Кликнули на: " & tv.SelectedItem
    End If
End Sub

Private tvw As TreeView
Private bln As Boolean

Private Sub Form_Load()
    Set tvw = TreeView1
End Sub

Private Sub TreeView1_TreeView1(ByVal Button As Integer, _
  ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    If Not tvw.HitTest(x, y) Is Nothing Then
        bln = True
    Else
        bln = False
    End If
End Sub

Private Sub TreeView1_DblClick()
    If bln = True Then
        MsgBox "Кликнули на: " & tvw.SelectedItem
    End If
End Sub

Private Sub TreeView1_TreeView1(ByVal Button As Integer, _
    ' ...
End Sub

Private Sub TreeView1_MouseDown(ByVal Button As Integer, _
    ' ...
End Sub