Di seguito una frazione del codice per la pw, quella che hai chiesto, se fai una ricerca nel forum ci dovrebbe essere tutta la procedura:
codice:
'La password o il nome utente sono errati:
If user = False Then
sngNuV = 1 + sngNuV
MsgBox "La PassWord o il Nome utente non è corretto! Riprovare." & Chr(13) _
& "Prove effettuate " & sngNuV & " di 4." & Chr(13) _
& "Attenzione, alla 4^ prova il programma verrà chiuso!", vbCritical, "Accesso al programma"
TxtApriPW.SetFocus
TxtApriPW.SelStart = 0
TxtApriPW.SelLength = Len(TxtApriPW.Text)
If sngNuV > 3 Then
MsgBox "E' stata introdotta per quattro volte una PassWord non è corretta !" & Chr(13) _
& "Il programma verrà chiuso.", vbCritical, "Accesso al programma"
Unload frmLogin
Set frmLogin = Nothing
End
End If
End If
PS: la variabile sngNuV deve essere pubblica.
Il codice è in VB6 - Perchè nella richiesta non inserisci il linguaggio ??!!