creazione di password
(nell'esempio : padova)

per vedere ppt

creare 4 pulsanti (cambiare nomi e inserire testo)
creare1 textbox(nome automatico)
creare 1 frame(nome automatico)
creare 3 label(inserire testo)

codice da copiare e incollare

Option Explicit

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

Private Sub avanti_Click()
Frame1.Visible = False
Call esegue
End Sub


Private Sub Conferma_Click()
avanti.Enabled = False
If TextBox1.Text = "padova" Then
Label2.Caption = "password accettata:clicca su avanti"
avanti.Enabled = True
avanti.SetFocus
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.SetFocus
End If
End Sub


Public Sub esegue()
Label3.Caption = "prosegue il programma codificato"
Call eseguire(10, 5)
End Sub

Private Sub Frame1_Click()
TextBox1.SetFocus
End Sub

Private Sub eseguire(a As Integer, b As Integer)
Dim somma As Integer
somma = a + b
MsgBox ("somma =" & somma)
End Sub