[Samir94]

Sur cette fenetre :



voici mon code :

Private Sub Command1_Click()
tx.SetFocus
If tx.Text = "motdepasse" Then Face.Show Else MsgBox ("ha ha ha")
tx = Clear

End Sub

Private Sub Command2_Click()
PP.Show
End Sub

Private Sub Quitter_Click()
End
End Sub

Private Sub tx_Change()
tx.PasswordChar = "*"
tx.MaxLength = "20"
End Sub

ce qui nous interesse est cette partie :

PS : Commande1 = boutton OK

Private Sub Command1_Click()
tx.SetFocus
If tx.Text = "motdepasse" Then Face.Show Else MsgBox ("ha ha ha")
tx = Clear

End Sub

quand je click sur "OK" (avec le bon mot de passe biensure) il y a bien "Face" qui s'ouvre mais dans une nouvelle fenetre, et tous sa à cause de ce "Show"

Voila, Merci

Edit : je vien de trouver, il suffit d'ajouter "Unload Me" ce qui à pour action de fermer automatiquement la fenetre, du coups il n'en reste plus qu'une à chaque fois :cont: