Voici mon code :

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

If (List1.Text) = "1" Then
Form9.Show()
Me.Hide()
Else

If (List1.Text) = "2" Then
Form8.Show()
Me.Hide()
Else

If (List1.Text) = "3" Then
Form3.Show()
Me.Hide()

End If
End If
End If

End Sub

Si je met les chiffres entre "" rien ne se passe quand je clique sur le bouton OK et si je ne met pas de guillemets, il me met le message d'erreur suivant : La conversion de la chaîne "" en type 'Double' n'est pas valide.
J'ai également testé en forçant la valeur de list1.text avec l'instruction List1.Text = 1 et là sa m'ouvre bien la form 9.