Intersecare insiemi

[rescueme]

Esiste una struttura dati (una Collection, un Set) che mi permetta di effettuare l'intersezione? Mi spiego meglio, vorrei sapere se esiste qualcosa di questo tipo

Dim insieme1 As New Set() = {1, 2, 3, 4, 5}
Dim insieme2 As New Set() = {1, 2, 6, 7}
Dim insieme3 As Set() = insieme1.Interseca(insieme2) 

in modo che insieme3 contenga {1, 2}