PROGRAMAS QUE PIDAN CLAVE DE ACCESO

Dim d, f, a, r, s As Double
Private Sub Command1_Click()

If (a <> 3) Then
If (f = d) Then
Load mov
mov.Show
Unload Me
Else
MsgBox (" Error... Ingrese bien la contraseña")
a = a + 1
End If
Else
End
End If
End Sub

Private Sub Command2_Click()
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Command4.Visible = True

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
If r = s And r <> 1991 Then
d = r
End If
End Sub

Private Sub Form_Load()
d = 1991
End Sub

Private Sub Text1_Change()
If Text1 <> " " Then
f = Val(Text1.Text)
End If
End Sub

Private Sub Text2_Change()
If Text2 <> " " Then
r = Val(Text2.Text)
End If
End Sub

Private Sub Text3_Change()
If Text3 <> " " Then
s = Val(Text3.Text)
End If
End Sub