Problème vb.net

Bonjour,

je sus très nouveau ici et j'ai déja besoin d'aide  

Je fais la conversion d'un programme de VB6 à VB.net

Dans la version VB6, l'instruction suivante est faite :

Dim Item as ListItem

While Not EOF(1)
Input #1, Ligne
If Ligne <> "" Then
Set Item = FrmVirtuel.LvSourceActivites.ListItems.Add
i = StrScan(Ligne, 1, ";")
Item.SubItems(1) = Mid(Ligne, 1, i - 1)
j = StrScan(Ligne, i + 1, ";")
Item.SubItems(4) = Mid(Ligne, i + 1, j - i - 1)
i = j
j = StrScan(Ligne, i + 1, ";")
Item.SubItems(2) = Mid(Ligne, i + 1, j - i - 1)
Item.SubItems(3) = Mid(Ligne, j + 1, Len(Ligne) - j)
End If
Wend

Quelle est la fonction du Set item ... je ne comprend ni qu'est-ce que ca fait et ni par quoi le remplacer en vb.net. Donc, si quelqu'un aurait la réponse a une de mes question (ou les deux) ça serait grandement apprécié.