Private Sub TreeView1_MouseUp(Button As Integer, _
  Shift As Integer, x As Single, y As Single)
 
  With TreeView1
    If Button = 2 And Not .SelectedItem Is Nothing Then
      .SelectedItem.Selected = True
    End If
  End With
End Sub