[amgad525]

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