[حريف برمجة]

ايضاً هذا اختصار كالتالي :

كود :

Private Sub ComboBox12_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox12.SelectedIndexChanged
        ComboBox13.Items.Clear()

        ComboBox13.Items.Add("الأول")
        ComboBox13.Items.Add("الثاني")
        ComboBox13.Items.Add("الثالث")
        ComboBox13.Items.Add("الرابع")
        ComboBox13.Items.Add("الخامس")
        ComboBox13.Items.Add("السادس")

        If ComboBox12.SelectedIndex = 4 Or ComboBox12.SelectedIndex = 5 Or ComboBox12.SelectedIndex = 6 Then
            ComboBox13.Items.Add("السابع")
            ComboBox13.Items.Add("الثامن")
        End If
    End Sub