[VB.NET] Come NON utilizzare l'istruzione GoTo

[MItaly]

L'approccio più pulito è questo:

    Private Sub VisualizzaRecordCercati(ByVal NumCol As Integer, Tiporicerca As TipoRicerca)
        Dim ripeti As Boolean
        Do
                ripeti=False
                For i As Integer = 0 To Me.ListView1.Items.Count - 1
                    Select Case Tiporicerca
                        Case Is = FRM_ListaArticoli.TipoRicerca.Maggiore
                            If Not ListView1.Items(i).SubItems(NumCol).Text > valoreA Then
                                ListView1.Items(i).Remove()
                                ripeti=True
                            End If
                    End Select
                Next
        Loop While ripeti
    End Sub