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