[tas]

Basta aggiungere una variabile privata e un nuovo costruttore al Form2:

Private MyID As Long

Public Sub New(ByVal id As Long)
    Me.New()
    myID = id
End Sub

In questo modo potrai creare il Form2 in questo modo:

Dim f As Form2
Dim id as Long

id = CLng(ListView1.SelectedItems.Item(0).Text)

f = New Form2(id)
f.Show()