Option Explicit On Public Class Form1 Dim ouverture As Boolean = True Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add("OK") ' 2 lignes chargement pour test ComboBox1.SelectedIndex = 0 End Sub Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ouverture = True Then ouverture = False Exit Sub End If If ComboBox1.Items(ComboBox1.SelectedIndex) = "OK" Then Form2.Show() End If End Sub End Class