Dim Form As Form2() Dim ID As Long = CLng(lwDomini.SelectedItems.Item(0).Text) Form = New Form2(ID) Form.Show()