حل مشكلة الكود الاتي - سهل- - نسخة قابلة للطباعة

PHP كود :

     Dim A8 As String = TextBox5.Text
            Dim A7 As String = TextBox8.Text
            Dim A13 As String = TextBox6.Text
            Dim A9 As String = TextBox7.Text
            Dim A5 As String = TextBox13.Text
            Dim A11 As String = TextBox9.Text
            Dim s As String = TextBox4.Text
            If Not String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(s) Then

                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

            Else

                If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A8) Then
                    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                Else
                    If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A7) Then
                        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                    Else
                        If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A13) Then
                            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                        Else
                            If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A9) Then
                                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                            Else

                                If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A5) Then
                                    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                                Else

                                    If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A11) Then
                                        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                                    End If

                                End If
                            End If
                        End If

PHP كود :

Dim A8 As String = TextBox5.Text
Dim A7 As String = TextBox8.Text
Dim A13 As String = TextBox6.Text
Dim A9 As String = TextBox7.Text
Dim A5 As String = TextBox13.Text
Dim A11 As String = TextBox9.Text
Dim s As String = TextBox4.Text

Dim arr() As String = {A8, A7, A13, A9, A5, A11, s}

If arr.Contains(ListBox1.Text) Then

    If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1
    End If

End If