chiave

creazione password

Option Explicit

Private Sub annulla_Click()
TextBox1.Text = ""
Label2.Caption = ""
TextBox1.SetFocus
End Sub



Private Sub Conferma_Click()
Dim chiave As String
chiave = Left$(TextBox1.Text, 6)
If chiave = "massimo" Then
Frame1.Visible = False
Call esegue
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.Enabled = True
annulla.SetFocus
End If
End Sub


Public Sub esegue()
Label3.Caption = "prosegue il programma"
End Sub


Private Sub Frame1_Click()

End Sub

Private Sub TextBox1_Change()
Dim x As String
TextBox1.PasswordChar = "x"
End Sub

ritorna